Двумерный массив

[Mari.Prosto Mari]

Помогите, очень прошу, пожалуйста!!!!!!!

Задана матрица размерности (5х6). Если минимальный элемент в строке матрицы меньше 1, то элементы в этой строке заменить нулями.

[Don Karleone]

var
  mas: array [1..5,1..6] of ShortInt;
  i,j,s: byte;
  min: ShortInt;

begin
  randomize;
  for i:=1 to 5 do
    begin
      for j:=1 to 6 do
        begin
          mas[i,j]:=random(12)-1;
          write(mas[i,j]:4);
        end;
      writeln;
    end;
  for i:=1 to 5 do
    begin
      min:=mas[i,1];
      for j:=2 to 6 do
        if mas[i,j] < min then min:=mas[i,j];
      if min < 1
        then
          for s:=1 to 6 do
            mas[i,s]:=0;
    end;
  writeln;
  for i:=1 to 5 do
    begin
      for j:=1 to 6 do
        write(mas[i,j]:4);
      writeln;
    end;

  readln
end.