Помогите, пожалуйста, нарисовать блок схему.

Ася Сергеева в категроии Информатика, вопрос открыт 28.06.2018 в 23:12

Вот задача.
var s,s1,s2:string;
F,g : Textfile;
i,j:integer;
Begin
Assignfile(F,'in.txt');
Reset(F);
Assignfile(G, 'out.txt');
ReWrite(G);
while not eof(f) do
begin
readln(f,s);
s1:='';
s2:='';
for i:=1 to length(s) do
if s[i]<>' ' then
s2:=s2+s[i]
else
begin
if length(s2)>1 then
if length(s1)>0 then s1:=s1+' '+s2 else s1:=s2;
s2:='';
end;
if length(s2)>1 then
if length(s1)>0 then s1:=s1+' '+s2 else s1:=s2;
writeln(g,s1);
end;
Closefile(G);
Closefile(F);
end;
end.