Нужны блок-схемы

program z2;
var
  s:string;
  i,n,m:integer;
  a: string;
begin
  writeln('Введите текст (обязательно должно присутствовать двоеточие)');
  readln(s);{Ввод текста}
  for i:=1 to length(s) do
  if s[i]=':' then begin
  n:=i;
  break;
  end;
  for i:=n+1 to length(s) do
  if s[i]=':' then begin
  m:=i;
  break;
  end;
  for i:=n+1 to m-1 do a:=a+s[i];
  writeln(a);
end.

program z3;
var a:array[1..200] of integer;
i,n,s,j,s1,s2:integer;
begin
     randomize;
     writeln;
     writeln('Колличество элементов в массиве?');
     readln(n);
     for i:=1 to n do begin
     a[i]:=random(100);
     write(a[i]:4);
     end;
     writeln;
 
     for i:=2 to n do begin
     j:=i;
     while a[j]<a[j-1] do begin
     s:=a[j];
     a[j]:=a[j-1];
     a[j-1]:=s;
     dec(j);
     if j=1 then break
     end;end;
     for i:=1 to n do write(a[i]:4);
     writeln;
     S1:=0;
     for i:=1 to n do
     if i mod 2=0 then S1:=S1+a[i];
     writeln('сумма четных = ',S1);
     S2:=0;
     for i:=1 to n do
     if i mod 2 <>0 then S2:=S2+a[i];
     writeln ('cумма не четных = ',S2);
     readln;
     end.

program z4;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
i,j,n,m,sum,max,k:integer;
begin
     randomize;
     for i:=1 to 6 do begin
     writeln;
     for j:=1 to 6 do begin
     a[i,j]:=random(50)-25;
     sum:=sum+a[i,j];
     write(a[i,j]:4);
     end;
     if sum>max then begin
     max:=sum;
     max:=i;
     end;
     b[i]:=sum;
     sum:=0;
     end;
     writeln; writeln;
     for i:=1 to 6 do
     writeln('a[',i,']= ',b[i]);
     writeln('Номер максимальной строки = ', max);
     end.

program z5;
Var f,g:file of integer;
    i,j,k,n,m:integer;
Begin
    write('Введите кол-во элементов для ввода: ');readln(n);
    Assign(f,'a.dat');Rewrite(f);
    For i:=1 to n do 
     Begin
      write('Введите ',i,'-ое число: ');readln(m);
      write(f,m);
     End;
    Reset(f);
    Assign(g,'a1.dat');Rewrite(g);
    i:=0;j:=0;k:=1;
    While not Eof(f) do
     Begin
      inc(i);
      if j=0 then 
       Begin
        read(f,m);
        write(g,m);
        j:=1;
       End
       else if k=1 then
        Begin
         Seek(f,n-1);
         read(f,m);
         write(g,m);
         dec(n);
         Seek(f,i-1);
         j:=0;
        End;
      End;
     Reset(g);
     While not Eof(g) do
      Begin
       read(g,m);
       write(m:3);
      End;
     Close(f);Close(g);
End.