Viết chương trình nhập một xâu, xuất xâu vừa nhập ra màn hình bắt đầu từ vị trí có xâu "abc" đến hết xâu

uses crt;
var i:word;
   s:string;
begin
clrscr;
   readln(s);
   if pos('abc',s)<>0 then 
      for i:=pos('abc',s) to length(s)do write(s[i])
   else write('INVALID');
readln
end.

program xuat_xau;

uses crt;

var s:string;

     i:byte;

begin

      clrscr;

      write('Nhap xau: ');  readln(s);

      if pos('abc',s)<>0 then

            for i:=pos('abc',s) to length(s) do write(s[i])

      else write('Khong co xau abc de bat dau viet');

      readln;

end.