Pascal двумерные массивы

[I n n a]

Помогите пожалуйста решить задачу:
выполнить обработку числового двумерного массива, имеющего 4 строки и 5 столбцов.
Элементы массива должны вводиться с клавиатуры и для их ввода следует разработать процедуру.
Обработку и вывод результата необходимо выполнять с помощью подпрограмм.
Вычислить произведение элементов для каждого столбца. Поменять местами столбцы с максимальным и минимальным значением произведения.

[Vedun]

Вот код программы,должна работать по правилам...

Program masi;
var
 mas:array[1..4,1..5] of integer;
 i,j:integer;
 min,max:integer;
 sch:array[1..5] of integer;
 n,x:integer;
Procedure vved;
 begin
  for i:=1 to 4 do
   for j:=1 to 5 do
    begin
     Write('Strok: ',i,'Stolb: ',j,': ');
     ReadLn(mas[i,j]);
    end;
 end;
Procedure vid;
 begin
  for j:=1 to 5 do
   begin
    for i:=1 to 4 do
     Write(mas[i,j],' ');
    ReadLn;
   end;
 end;
function st(i:integer):integer;
 var a:integer;
 begin
  a:=1;
  for j:=1 to 5 do
   a:=a*mas[i,j];
   st:=a;
 end;
begin
 vved;
 ClrScr;
 for i:=1 to 4 do
  if max<st(i) then max:=st(i);
 min:=max;
 for i:=1 to 4 do
  if min>st(i) then min:=st(i);
 for i:=1 to 4 do
  begin
   if max=st(i) then x:=i;
   if min=st(i) then n:=i;
  end;
 for j:=1 to 5 do
  begin
   sch[j]:=mas[x,j];
   mas[x,j]:=mas[n,j];
   mas[n,j]:=sch[j];
  end;
 vid;
 ReadLn;
end.

[veter_s_morya]

Код не работаеть! error : Anrnown identifier!!!!! Вроде ввел как написано

[puporev]

Приведенная программа работает, только в нвчале нужно добавить модуль Crt;, иначе программа не признает clrscr;
Однако что выдает эта программа одному богу известно, потому что в ней сплошной сумбур. Постоянно путаются строки со столбцами, никаких пояснений при выводе данных на экран. Переделал программу, стараясь по возможности сохранить стиль.

Program masi;
uses crt;
//объявляем тип, чтобы можно было работать с процедурами
type Tmatr=array[1..4,1..5] of integer;
var  
 mas:Tmatr;
 i,j:integer;   
Procedure vvod;  //объединил две процедуры в одну
begin  
  for i:=1 to 4 do  
   for j:=1 to 5 do
    begin  
     Write('Stroka: ',i,' Stolb: ',j,': ');
     ReadLn(mas[i,j]);   
    end;
clrscr;
writeln('Ishodnaia matrica:');
  for i:=1 to 4 do
   begin
    for j:=1 to 5 do
    Write(mas[i,j]:4);
    writeln;
   end;
end;
function Prz(j:integer):integer;//переименовал, больше похоже на произведение
var a:integer;
begin
  a:=1;
  for i:=1 to 4 do
  a:=a*mas[i,j];
  Prz:=a;
end;
Procedure Perest(var ms:Tmatr);  //по условию преобразования нужно оформить                  
                                  //процедурой
var max,min,jmax,jmin,x:integer;
begin
max:=Prz(1);min:=Prz(1);jmax:=1;jmin:=1;
 for j:=1 to 5 do
 if Prz(j)>Prz(j+1) then
     begin
        max:=Prz(j);
        jmax:=j;
     end
 else if Prz(j)<min then
      begin
        min:=Prz(j);
        jmin:=j;
      end;
 for i:=1 to 4 do
      begin
       x:=ms[i,jmin];
       ms[i,jmin]:=ms[i,jmax];
       ms[i,jmax]:=x;
      end;
 writeln('Perestanovka:');
 for i:=1 to 4 do
    begin
      for j:=1 to 5 do
      write(ms[i,j]:4);
      writeln;
    end;
end;
begin
 clrscr;
 vvod;
 for j:=1 to 5 do  //по условию нужно определить произведение в каждом 
                    //столбце(не в строке)
 writeln('Proizvedenie v stolbce ',j,'=',Prz(j));
 Perest(mas);
 ReadLn;
end.