Построение блок-схем

var x:array [1..35] of integer;
    i,n,k:byte;
    max,min,sum:integer;
    sr:real;
begin
 read(n);
 max:=x[1]; sum:=0;k:=0;
 for i:=1 to n do
  begin
   x[i]:=random(100);
   write(x[i]:4);
   if x[i]>max then max:=x[i]
  end;
  writeln;
  min:=x[1];
for i:=2 to n do
   if x[i]<min then min:=x[i];
  writeln(max,' ',min);
for i:=1 to n do
 if (x[i]<max)and(x[i]>min)
      then
        begin
          sum:=sum+x[i];
          k:=k+1;
        end;
 sr:=sum/k;
 writeln('Cреднее арифметическое массива =',sr:4:2);
 end.

var s: string;
 i, n: integer;
begin
  writeln('Введите строку:');
  readln(s);
  for i := length(s) downto 1 do if s[i] = ','
 then begin
delete(s,i,1);
inc(n)
  end;
  writeln('Строка без запятых:');
  writeln(s);
  write('Число удаленных запятых: ', n, ', Длина текста: ', length(s));
  readln
end.

const
 maxi=30;
var
 r:array[1..20,1..20] of integer;
 i,j,k,n,x1,y1,x,y,temp,min,max:integer;
begin
randomize;
k:=random(20);n:=random(10);
writeln('Количество строк: ', k);
writeln('Количество столбцов: ', n);
writeln;
for i:=1 to k do begin
  for j:=1 to n do
   begin
     r[i,j]:=random(maxi);
     write(r[i,j]:5);
   end;
   writeln;
 end;
writeln('Новый массив');
min:=r[1,1];
for i:=1 to k do
  for j:=1 to n do
   if r[i,j]<min then begin x:=i;y:=j;min:=r[i,j];end;
max:=r[1,1];
for i:=1 to k do
  for j:=1 to n do
     if r[i,j]>max then begin max:=r[i,j];x1:=i;y1:=j;end;
temp:=r[x,y];
r[x,y]:=r[x1,y1];
r[x1,y1]:=temp;
for i:=1 to k do
  begin
   for j:=1 to n do
     write(r[i,j]:5);
  writeln;
  end;
Writeln('Минимум= ', min, '. Максимум = ', max);
readln;
end.