Как вывести первые иницыалы фамилии,имени,отчества в паскале

Program p1;
uses crt;
var s,s2,s3:string;
a:integer;
begin
read(s);
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=S3+s2+'.';
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=s3+s2+'.';
s2:= copy(s,1,1);
s3:=s3+s2+'.';
writeln(s3);
end.

Var
s:string;
i: integer;
begin
readln(s);
s:=' '+s;
For i:=1 to length(s) do
if s[i] = ' ' then
Write(s[i+1]);
end.