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

Var   S,S1:string;   i:integer;BeginWrite('Введите ФИО: ');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.

var s: string;    n,m: integer;begin  write('ФИО: ');  readln(s);  n:=pos(' ',s);    s[n]:='*';  m:=pos(' ',s);  s:=copy(s,1,n+1)+'.'+s[m+1]+'.';  s[n]:=' ';  writeln(s);end.  ФИО: Петров Сидор ИвановичПетров С.И.