Помогите выстроить блок-схему для программы в Pascal:var f,g: Text;s,s1: string;p:

Помогите выстроить блок-схему для программки в Pascal:
var f,g: Text;
s,s1: string;
p: integer;
begin
Assign(f,'names.txt');
assign(g,'out.txt');
Reset(f);
rewrite(g);
while not Eof(f) do beginReadln(f,s);
while slt;gt;'' do begin
p := pos(',',s);
if pgt;0 then begin s1 := copy(S,1,p-1); s := copy(S,p+1,length(S)) endelse begin s1 := s; s := '' end;
p := pos(' ',s1);
if pgt;0 then write(g,copy(S1,p+1,Length(S1)),' ',copy(S1,1,p-1));
if (Slt;gt;'')and(S[1]=' ') then Delete(S,1,1);
if Slt;gt;'' then write(g,', ');
end;
writeln(g);
end;
Close(f);
Close(g);
end.