Из заданного предложения, начиная с первой встретившейся буквы «a», скопировать в новую строку все символы до первой встретившейся буквы «Y». Напечатать исходный текст и полученную строку — Pascal(Паскаль)

uses crt;
var s,s1:string;
    pa,py:byte;
begin
clrscr;
writeln('Введите строку латиницей:');
readln(s);
pa:=pos('a',s);//первая а
py:=pos('y',s);//первая у
if pa=0 then write('В строке нет буквы а')
else if py=0 then write('В строке нет буквы y')
else
 begin
  if pa<py then s1:=copy(s,pa,py-pa+1)//если а раньше
  else if pa>py then s1:=copy(s,py,pa-py+1);//если у раньше
  write(s1);
 end;
readln
end.