В матрице 5х3 в первом столбце найти максимальный элемент и поменять его местами с первым

uses crt;
var mas:array [1..5,1..3] of integer;
i,j,max,t,n:integer;
Begin
 for i:=1 to 5 do
 begin
 for j:=1 to 3 do
 begin
 writeln('введите элемент ',i,' строки и  ',i,' столбика');
 read(mas[i,j]);
 readln;
 end;
 writeln('получили матрицу:');
 for i:=1 to 5 do
 begin
 for j:=1 to 3 do
 write(mas[i,j],'');
 writeln;
 end;
 max:=mas[1,1];
 n:=1;
 for i:=1 to 5 do
 for j:=1 to 3 do
 if mas[i,j]>max
 then begin
 max:=mas[i,j];
 n:=i;
 end;
 t:=mas[1,1];
 mas[1,1]:=max;
 mas[n]:=t;
 for i:=1 to 5 do
 for j:=1 to 3 do
 write(s[i,j],' ');
 end.

uses
    Crt;
var
    mas : Array [1..5, 1..3] Of Integer;
    max : Integer;
    i, j, maxIndex : Byte;
begin
    ClrScr;
    for i := 1 to 5 do
        for j := 1 to 3 do
        begin
            Write('mas[', i, '][', j, ']=');
            ReadLn(mas[i, j]);
        end;
    WriteLn('Введённая матрица:');
    for i := 1 to 5 do
    begin
        for j := 1 to 3 do
            Write(mas[i, j], ' ');
        WriteLn;
    end;
    max := mas[1, 1];
    maxIndex := 1;
    for i := 1 to 5 do
        if (max < mas[i, 1]) then
        begin
            max := mas[i, 1];
            maxIndex := i;
        end;
    mas[maxIndex, 1] := mas[1, 1];
    mas[1, 1] := max;
    WriteLn('Полученная матрица:');
    for i := 1 to 5 do
    begin
        for j := 1 to 3 do
            Write(mas[i, j], ' ');
        WriteLn;
    end;
    ReadLn;
end.