Пожалуйста посчитайте пожалуйста написать программу в паскале. Дано ФИО, например "Петров Иван Андреевич", в итоге программа должна вывести - Петров И.А.

Var
   S,S1:string;
   i:integer;
Begin
Write('Введите ФИО: ');
ReadLn(S);
i:=1;
While S[i]<>' ' do
   i:=i+1;
For i:= 1 to i+1 do
    S1:=S1+S[i];
S1:=S1+'.';
While S[i]<>' ' do
   i:=i+1;
S1:=S1+S[i+1]+'.';
WriteLn(S1);
End.