Исправить ошибки

program exp2;
const m=5; n=3;
type matr = array [ 1..m, 1..n ] of integer ;
var m: matr ; k, i, j : integer ; p: real ; повторно объявленный идентификатор
begin
clrscr ; неизвестный идентификатор
writeln ( ' k=' ) ; readln (k) ;
randomize ;
for i:= 1 to m do begin
for j:= 1 to n do begin
m [ i , j ] := random (101) ;
end ; end ;
for j:= 1 to n do begin
p:= 1;
for i:= 1 to m do begin
p:= p * m [i,j] ;
end ;
p := p ^ ( 1 / m ) ; нельзя делить
if p > k then writeln ( ' j = '; j: 5) ;неверное выражение
end ;
end.

program exp3;
const m=5; n=3;
type matr = array [1..m,1..n] of integer;
var m: matr; b, i,j, k : integer; повторно объявленный идентификатор
begin
clrscr ;
randomize;
for i:= 1 to m do begin
for j:= 1 to n do begin
m [i,j] := random (101) ;
end ; end ;
k:= n/2 ; попытка присвоить integer тип real
for j:= 1 to k do begin
for i:= 1 to m do begin
b := m [ i, j ] ;
m [ i , j ] := m [ i, n - j + 1 ] ;
m [i, n - j +1 ] := b ;
end ; end ;
for i:= 1 to m do begin
for j:= 1 to n do begin
writeln ('m[i,j]: 5) ; неверное выражение
end ;
writeln ; readln ; end; end .

program massiv2 ;
type mas=array [1..100] of integer ;
var a:= Max; i, n, min , max, b : integer; недопустимый символ:= (д/б просто : ; неизвесмтное имя типа max)
begin
writeln ('n='); readln (n) ;
for i:=1 to n do
begin
writeln ('a[',i,'=');переменная а не является именем массива
readln (a [i]); end;
max :=a[ 1 ]; min :=a[ 1 ]; переменная а не является именем массива
for i:=1 to n do begin
if a[ i ]> max then max :=a[ i ] ; переменная а не является именем массива
if a[ i ]<min then min :=a[ i ];
end;
b:=max - min ;
writeln (b) ; writeln;
end.

program exp2;
 
uses crt;
 
const
  m = 5;
  n = 3;
 
type
  matr = array [1..m, 1..n] of integer ;
 
var
  mx: matr;
  k, i, j: integer;
  p: real ;//повторно объявленный идентификатор
 
begin
  clrscr; //неизвестный идентификатор
  writeln(' k=' );
  readln(k);
  randomize;
  for i := 1 to m do 
  begin
    for j := 1 to n do 
    begin
      mx[i, j ] := random(101);
      write(mx[i, j]:4);
    end; 
    writeln;
  end;
  for j := 1 to n do 
  begin
    p := 1;
    for i := 1 to m do 
    begin
      p := p * mx[i, j];
    end;
    p := p / m; //нельзя делить
    if p > k then 
      writeln(' j = ', j:5);//неверное выражение
  end;
end.

program exp3;
 
uses crt;
 
const
  m = 5;
  n = 3;
 
type
  matr = array [1..m, 1..n] of integer;
 
var
  mx: matr; 
  b, i, j, k: integer;//повторно объявленный идентификатор
 
begin
  clrscr;
  randomize;
  for i := 1 to m do 
  begin
    for j := 1 to n do 
    begin
      mx[i, j] := random(101);
    end; 
  end;
  k := n div 2; //попытка присвоить integer тип real
  for j := 1 to k do 
  begin
    for i := 1 to m do 
    begin
      b := mx[i, j ];
      mx[i, j ] := mx[i, n - j + 1 ];
      mx[i, n - j + 1 ] := b;
    end; 
  end;
  for i := 1 to m do 
  begin
    for j := 1 to n do 
    begin
      writeln(mx[i, j]:5); //неверное выражение
    end;
    writeln;
  end; 
  readln; 
end.

program massiv2 ;
 
type
  mas = array [1..100] of integer ;
 
var
  a: Mas;
  i, n, min, max, b: integer;//недопустимый символ:= (д/б просто : ; неизвесмтное имя типа max)
 
begin
  writeln('n=');
  readln(n);
  for i := 1 to n do
  begin
    writeln('a[', i, '] = ');//переменная а не является именем массива
    readln(a[i]); 
  end;
  max := a[1 ];
  min := a[1 ]; //переменная а не является именем массива
  for i := 1 to n do 
  begin
    if a[i ] > max then 
      max := a[i ]; //переменная а не является именем массива
    if a[i ] < min then 
      min := a[i ];
  end;
  b := max - min;
  writeln(b);
  writeln;
end.

const m=5;
      n=3;
var a:array[1..m,1..n] of integer;
    i,j,k,f:integer;
    p:real;
begin
randomize;
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=1+random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
write('Введите целое число k=');
readln(k);
writeln('Среднее геометрическое >',k,' в столбцах');
f:=0;
for j:= 1 to n do
 begin
  p:=1;
  for i:=1 to m do
  p:=p*a[i,j];
  p:=exp(ln(p)/ m );
  if p>k then
   begin
    writeln ('Столбец ',j,'=',p:0:2);
    f:=1;
   end;
 end ;
if f=0 then write('Таких средних геометрических нет')
end.