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

алг цел ПоискМеста( арг цел таб а(0:n),цел i
 нач цел m |Текущее значение искомой величины
 m:=1
 нц пока a[m]<a[i]
 m:=m+1
 кц
 знач:=m | Значение функции
 кон
 
 Процедура Вставка:
 алг Вставка (алг рез цел таб [1:n], алг цел i,m)
 нач цел всп, k
 Запоминаем значение элемента a[i]
 во вспомогательной переменной всп
 всп:=a[i]
 Элементы с индексами от i-1 до m
 смещаем вправо на одну позицию
 нц для k от i-1 до m шаг -1
 a[k+1]:=a[k]
 кц
 размещаем элемент a[i] на m-й позиции
 a[m]:=всп
 кон
 
 алг СортировкаВставками1(алг рез цел таб a[1:n])
 нач цел i,m
 нц для i от 2 до n
 если нужно перемещать i-й элемент
 если a[i]<a[i-1]
 то
 находим место m для элемента a[i]
 m:=Поискместа(a,i)
 перемещаем i-й элемент на m-е место
 вставка (a,i,m)
 все
 кц
 кон

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.