program lab5;
var a:array[1..10, 1..10] of integer;
    b:array[1..10] of integer;
    i, k, n, min, max, t:integer;
    c:char;

begin

    writeln('Введите размер массива');
    while (n<>5) do
        n:=5; //readln
    writeln('y, если хотите ввести вручную');
        readln(c);

    if (c = 'y') then
        for i:=1 to n do
            for k:=1 to n do
                a[i, k]:=n //readln
    else
        for i:=1 to n do
        begin
            for k:=1 to n do
            begin
                a[i, k]:=random(200) - 100;
                write(a[i,k], ' ');
            end;
            writeln();
        end;

    min := 0;
    max := 0;
    for i := 1 to n do
    for k := 1 to n do
        if (a[i, k] > a[max, k]) then max := i;
        if (a[i, k] < a[min, k]) then min := i;
    if (max = min) then
        writeln(“Максимальный и минимальный находятся на строке ”, max + 1)
    else begin
        for k := 1 to n do begin
        t := a[min, k];
        a[min, k] := a[max, k];
        a[max, k] := t;
    end;


    writeln("Измененный массив");
    for i:=1 to n do
        begin
            for k:=1 to n do
            begin
                write(a[i,k], ' ');
            end;
            writeln();
        end;
    end;

end.