В матрице 4*3 поменяь местами 1-ю и последнюю строку. Вывести на экран обе матрицы и строку в которой рапололжен максимальный элемент. 

Помогите сделать ее с помощью процедур или функций. Спасибо

Зачем тебе процедуры или функции? Если несколько строк менять - другое дело.. А так - только программу замусоривать.

PROGRAM MATR;
USES CRT;
CONST n=3; m=4;
VAR i, j, c, k:INTEGER;
    S,MAX: REAL;
    A: ARRAY[1..N, 1..M] OF REAL;
    B: ARRAY[ 1..N, 1..M] OF REAL;
BEGIN
  FOR i:=1 TO N DO
  FOR j:=1 TO M DO
  BEGIN
    CLRSCR; //--------------------
    WRITE(' введите значенние ',i,'- й строки ',j,'- го столбца: ');//-------
    READLN(A[i,j]);
  END;
  clrscr;//------------------
  FOR i:=1 TO N DO
   FOR j:=1 TO M DO
    B[i,j]:=A[i,j];
  FOR j:=1 TO M DO
  begin
    B[n,j]:=A[1,j];
    B[1,j]:=A[n,j];
  end;

  MAX:=a[1,1];
  k:=1;    //----------------
  c:=1;   //-----------------
  for i:=1 to n do
  for j:=1 to m do
  begin                    //-------------------
    if a[i,j]>=MAX  then  //--------------------
    begin                //---------------
     MAX:=a[i,j];        //----------------
     k:=i;               //-------------
    end;                //---------------------
  end;                  //-------------
  writeln('первая матрица:');
  for i:=1 to n do
  begin
    writeln;
    for j:=1 to m do
    write (A[i,j]:4:2,' '); //----------------
  END;
  writeln;
  writeln;//----------------
  writeln('вторая матрица:');
  for i:=1 to n do
  begin
    writeln;
    for j:=1 to m do
    write (B[i,j]:4:2,' ');//-----------------
  end;
  writeln;
  writeln;//---------------
  writeln('Max элемент ', MAX:4:2);
  writeln;//--------------
  writeln('Строка, в которой расположен макс. элемент: ',k); //----------
  FOR j:=1 TO m DO
  write (a[k,j]:4:2,'  ');
  readkey;//---------------------
end.

немного исправил ошибки и оформление(см. чёрточки в комментариях). Если по первоначальному коду был бы максимальным элемент 1-1, то было-бы весело.

TRS743
*для кода есть специалные блоки!!! так удобнее!!! не заметил?