Обнуление элементов таблицы(Free Pascal)

[Zer0]

Мне кажется, что если использовать множества - то нужно одним циклом записывать в него индексы где есть нули, а вторым циклом уже обнулять (в одном такое совершить думаю невозможно, если не исхитряться с элементами массива как структурами, хотя второй цикл все равно нужен)

[Hacker19_90]

если использовать множества - то нужно одним циклом записывать в него индексы где есть нули, а вторым циклом уже обнулять

я чёт сам уже не знаю!
Ты посмотри чё во множества пишется!
хотя на фри паскале удалось запустить и получить правильный результат после замены типа i и j на byte! Но только на 1 раз, после этого во множество опять стало писаться не понятно что

[Serge_Bliznykov]

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

var
    i, j, k, l: integer;
    ex_i, ex_j: set of byte;
begin
   ex_i := [];
   ex_j := [];
   ....

[Hacker19_90]

Сообщение от Serge_Bliznykov

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

var
    i, j, k, l: integer;
    ex_i, ex_j: set of byte;
begin
   ex_i := [];
   ex_j := [];
   ....

++++++++ ТОЧНО! вот я короч ламер! лан вот готовый рабочий (за что всем кто помагал спасибо) код

program dd;
uses crt;
const
    m = 5;
    n = 4;
type
    matrix = array[1..m, 1..n] of integer;
var
    mas: matrix;
    i, j: integer;

procedure ZeroCool (var m: matrix; const rows, cols: integer);
var
    i, j, k, l: byte;
    ex_i, ex_j: set of byte;
begin
    ex_i := [];
    ex_j := [];
    for i := 1 to rows do
        for j := 1 to cols do
            if m[i, j] = 0 then
            begin
                ex_i := ex_i + [i];
                ex_j := ex_j + [j];
            end;
    for i := 1 to rows do
        if (i in ex_i) then
            for j := 1 to cols do
                if (j in ex_j) then
                begin
                    for k := i to rows do
                        m[k,j] := 0;
                    for l := 1 to cols do
                        m[i,l] := 0;
                end;
end;

begin
    clrscr;
    Writeln ('Enter array');
    for i := 1 to m do
         for j := 1 to n do
             Read(mas[i,j]);
    Readln;
    ZeroCool (mas, m, n);
    for i := 1 to m do
    begin
         for j := 1 to n do
             write(mas[i,j]:4);
    Writeln;
    end;
    Readkey;
end.