Блок-схемы

program one;
 uses crt;
procedure number2(j: integer);
var a:array[1..20,1..20]of integer;
  i, m, n, k: integer;
  sr: real;
begin
randomize;
write('n=');readln(n);
write('m=');readln(m);
writeln('Ishodnaia matrica:');
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;
readln;
  for i := 1 to m do 
  begin
    sr := sr + a[i,j];
  sr := sr / m;
  for i := 1 to m do 
  end;
  readln;
  writeln('Srednee arifmeticheskoe', ' ', sr:5);
end;
var
  j: integer;
begin
  for j := 1 to 4 do 
  begin
    number2(j);
  end;
  readln;
end.

program two;
var m,n,sum,cnt,i,j: integer;
    a: array[1..100,1..50] of byte;
 
begin
 randomize;
 readln(n);
 readln(m);
 for i := 1 to n do
   for j := 1 to m do
     a[i,j] := random(50);
 sum := 0;
 cnt := 0;
  for i := 1 to n do
   for j := 1 to m do
    if odd(a[i,j]) then
      begin
        sum := sum + a[i,j];
        inc(cnt)
      end;
 writeln(cnt, ' elementov, cymma -  ', sum);
 readln
end.

program three;
uses crt;
var
s:string;
n,i,j,f:integer;
 
begin
clrscr;
write('Vvedite stroky ->');
readln(s);
f:=0;
s:=' '+s+' ';
i:=length(s);
n:=1;
while i>n do
begin
if s[i]=' ' then
                begin
                j:=i-1;
                if s[j]<>' ' then
                begin
                while s[j]<>' ' do
                  begin
                  if f<2 then delete(s,j,1);
                  dec(j);
                  end;
                inc(f)
                end;
                end;
i:=j;
end;
write('Stroka posle ydaleni9 ->');
delete(s,1,1);
delete(s,length(s)-1,1);
writeln(s);
readln;
end.

program four;
const 
  znaki = [',', '.', '!', '?', ':', ';'];
var
s: string; 
i, len: integer;
begin
write('Vvedite stroky ->');
readln(s);
len := length (s);
    for i := 1 to len do begin
      if (s[i] in znaki) and (s[i+1] <> ' ') then
        insert(' ', s, i+1);
    end;
writeln(s);
readln;
end.

program five;
var a, b:text;
s:string;
begin
assign(a,'a.txt');
reset(a);
assign(b,'b.txt');
rewrite(b);
while not eof(a) do
begin
readln(a,s);
if pos('!',s)>0 then writeln(s)
else writeln(b,s);
end;
close(a);
close(b);
readln;
end.