В графическом виде представить блок-схему алгоритма нахождения максимального числа в массиве из пяти чисел.

4)
Var    i,sum: integer;
Begin
i:=2;
    while (i<=22) do
         begin
        write(i,' ');
        i:=i+2
        end;
End.

5)
Var    i,sum: integer;
Begin
i:=5;
    while (i<=20) do
         begin
        sum:=sum+i;
        i:=i+1
        end;
  Writeln('Сумма чисел от 5 до 20 = ',sum)
End.

6)
Var    i,pr: integer;
Begin
i:=8;
pr:=1;
    while (i<=18) do
         begin
        pr:=pr*i;
        i:=i+2
        end;
  Writeln('Произведение четных чисел от 8 до 18 = ',pr)
End.

7)
Var    i: integer;
Begin
i:=10;
    while (i<=65) do
         begin
        Write(i,' ');
        i:=i+5
        end;
End.

Если задача заключается в том, что нужно поменять местами два столбца матрицы, то в приведенном фрагменте много лишних переменных.
Программа:
Program JHK;
const n=5;
var d:array[1..n,1..n]of real; 
i,j:integer; a:real;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
 for j:=1 to n do
  begin
  d[i,j]:=sin(i+j);
  write(d[i,j]:6:2);
  end;
writeln;
end;
for i:=1 to n do
 begin a:=d[i,1]; d[i,1]:=d[i,n]; d[i,n]:=a; end;
writeln('Измененный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do write(d[i,j]:6:2);
 writeln;
 end;
end.

Результат:
Исходный массив:
  0.91  0.14 -0.76 -0.96 -0.28
  0.14 -0.76 -0.96 -0.28  0.66
 -0.76 -0.96 -0.28  0.66  0.99
 -0.96 -0.28  0.66  0.99  0.41
 -0.28  0.66  0.99  0.41 -0.54
Измененный массив:
 -0.28  0.14 -0.76 -0.96  0.91
  0.66 -0.76 -0.96 -0.28  0.14
  0.99 -0.96 -0.28  0.66 -0.76
  0.41 -0.28  0.66  0.99 -0.96
 -0.54  0.66  0.99  0.41 -0.28