lab2_4_00

Uses SysUtils;

Var Arr:array of array of integer;
    n, i , j , k , f , p , t :byte;
    IsCorrect : Boolean;
Begin
    write('Введите размер матрицы :');
    repeat
        IsCorrect := true;
        try
            readln(N);
        except
            write('Введите наутральное число в диапозоне от 1 до 20');
            IsCorrect := false;
        end;
        if (N < 1) or (N > 20) and  IsCorrect then
        Begin
            writeln('Введите наутральное число в диапозоне от 1 до 20');
            Iscorrect := false;
        End;
    until (IsCorrect);

    Setlength(Arr, N, N);

    writeln('Введите элементы исходной матрицы:');
    for i:=1 to n do
    begin
        for j:=1 to N
        do
            readln(Arr[i,j]);
        writeln;
    end;

    writeln;
    i:=1;f:=0;
    while i<=n do
    begin
        k:=0;
        for j:=1 to N do
            if Arr[i,j]=0 then k:=1;
                if k=1 then
                begin
                    f:=1;
                    for t:=1 to N do
                        for p:=i to n-1 do
                            Arr[p,t]:=Arr[p+1,t];
                    n:=n-1;
                end
            else i:=i+1;
    end;
    if f=0 then
        write('В матрице нет нолей!')
    else
        if n=0 then
           write('Все строки удалены!')
    else
    begin
        writeln('Строки с нолями удалены:');
        for i:=1 to n do
        begin
            for j:=1 to High(Arr) do
            write(Arr[i,j]:3);
        writeln
        end;
    end;
    readln
end.