Для введенного из файла наименования сформировать аббревиатуру - Pascal ABC

uses crt;
var f: text;
    s,a: string;
    i: byte;
    
begin
assign(f,'D:\in.txt');
reset(f);
while not eof(f) do
      begin
      readln(f,s);
      a:=''; s:=' '+s;
      for i:=1 to length(s)-1 do
          if (s[i]=' ') and (s[i+1]<>' ') then
             a:=a+s[i+1];
      writeln(a);
      end;
close(f);
end.