построить блок-схемы

Program z5;
uses crt;
const n=5;
      s=6;
var a:array [1..n,1..s] of integer;
    m,i,j,k,p,t:byte;
begin
clrscr;
randomize;
m:=s;
writeln('UcxoDHa9 MaTpuLIa:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
j:=1;k:=0;
while j<=m do
if a[1,j]>a[n,j] then
 begin
  k:=k+1;
  for t:=1 to n do
  for p:=j to m-1 do
  a[t,p]:=a[t,p+1];
  m:=m-1;
 end
else j:=j+1;
writeln('Pe3yJlbTaT YDaJleHu9 cToJl6LIoB:');
if k=s then write('Bce cToJl6LIbl yDaJleHbl!')
else
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

Program z6;
uses crt;
function Revers(n,m:longint):boolean;
var n1,s:longint;
begin
n1:=n;
s:=0;
while n1>0 do
 begin
  s:=s*10+n1 mod 10;
  n1:=n1 div 10;
 end;
if s=m then Revers:=true else Revers:=false;
end;
var a,b:longint;
begin
clrscr;
writeln('BBeDuTe 2 HaTypaJlbHblx 4ucJla DJl9 CpaBHeHu9:');
readln(a,b);
if Revers(a,b) then write('nepBoe 4ucJlo - nepeBepTblLLl BToporo')
else write('nepBoe 4ucJlo  - He nepeBepTblLLl BToporo');
readln
end.

Program mas;
Uses crt;
Const n=5;
Var a: array[1..n] of integer; i,j,k3,k5: integer; u: boolean;
Begin
u:=false;
k3:=0;
k5:=0;
Clrscr;
Randomize;
Writeln('UcxoDHbli MaccuB: ');
For i:=1 to n-1 do
begin
a[i]:=random(21)-10;
Write(a[i]:4);
end;
Writeln;
For i:=1 to n-1 do
For j:=i+1 to n do
If (u=false) and (a[i]=a[j]) and (i<>j) then u:=true;
If u=true then Writeln('EJlEMeHTbl c oDuHaKoBblMu 3Ha4eHu9Mu npucyTcTbyl0T')
else Writeln('EJleMeHtbl c oDuHakoBblMu 3Ha4eHu9Mu oTcyTcTByl0T');
For i:=1 to n do
begin
If a[i] mod 3 = 0 then k3:=k3+1;
If a[i] mod 5 = 0 then k5:=k5+1;
end;
Writeln('EJleMeHTbl kpaThbl 3-M - ',k3);
Writeln('EJlEMeHTbl kpaThbl 5-M - ',k5);
readln;
End.