Создать блок схему, по готовым решениям

Program zadacha4;
         Var    a:array [1..5] of integer;                                      
                max,min,i:integer;
                BEGIN
                CLS;
                for i:=1 to 5 do
                BEGIN
                a[i]:=random (100)-41;
                WriteLN ('a[',i,']=',a[i]);
                END;
                max:=a[i];
                for i:=1 to 5 do
                BEGIN
                if a[i]>max then max:=a[i]
                else max:=max;
                END;
                WriteLN ('max =',max);
                min:=a[i];
                for i:=1 to 5 do
                BEGIN
                if a[i]<-min then min:=a[i]
                else min:=-min;
                END;
                WriteLN ('min =',min);
 END.

Program zadacha5;
var
a,b:string;
f,i:integer;
begin
CLS;
writeln ('Введите символы');
readln(a);
for i:=1 to length(a)do
if a[i]<>' 'then b:=b+a[i];
for i:=1 to length(b)do
if b[i]<>b[length(b)-i+1]then f:=1;
if f=0 then writeln('yes')else writeln('no');
end.