Pascal. Составить бок-схему.

[serega55]

Program Hello;
Var Name: String;
BEGIN
Write('Как тебя зовут ? ');
ReadLn(Name);
WriteLn('Привет, ', Name, '!');
ReadLn
END.


Program Lr;
uses Crt;
const rz=[' ',',','.',';',':','?','!'];
var s,s1:string;
a:array[1..100] of string[20];
buf:string[20];
i,k,p:byte;
begin
clrscr;
writeln('Введите строку из слов, разделенных знаками препинания:');
readln(s);
for i:=1 to length(s) do
if s[i] in rz then s[i]:=',';
while pos(',,',s)>0 do delete(s,pos(',,',s),1);
if s[length(s)]=',' then delete(s,length(s),1);
k:=1;
for i:=1 to length(s) do
if s[i]=',' then k:=k+1
else a[k]:=a[k]+s[i];
for i:=k downto 1 do
write(a[i],' ');
readln
end.


Пожалуйста, составьте бок-схему для этих двух программ.
Это детский сад наверное, но всё-же, помогите!

[denisbrain]

Сообщение от serega55

Program Hello;
Var Name: String;
BEGIN
Write('Как тебя зовут ? ');
ReadLn(Name);
WriteLn('Привет, ', Name, '!');
ReadLn
END.


Program Lr;
uses Crt;
const rz=[' ',',','.',';',':','?','!'];
var s,s1:string;
a:array[1..100] of string[20];
buf:string[20];
i,k,p:byte;
begin
clrscr;
writeln('Введите строку из слов, разделенных знаками препинания:');
readln(s);
for i:=1 to length(s) do
if s[i] in rz then s[i]:=',';
while pos(',,',s)>0 do delete(s,pos(',,',s),1);
if s[length(s)]=',' then delete(s,length(s),1);
k:=1;
for i:=1 to length(s) do
if s[i]=',' then k:=k+1
else a[k]:=a[k]+s[i];
for i:=k downto 1 do
write(a[i],' ');
readln
end.


Пожалуйста, составьте бок-схему для этих двух программ.
Это детский сад наверное, но всё-же, помогите!

http://netsoftware.ucoz.ru/ex2.jpg