Двумерный массив (Turbo Pascal)

[DasV]

Уважаемые форумчане! Помогите решить задачу: "сформировать двумерный массив F размером 3х8 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. В строке матрицы F, содержащей максимальный элемент, заменить все отрицательные числа на нули (оформить нахождение максимального элемента в виде функции). Вывести на экран и в файл номер этой строки и максимальный элемент". Очень прошу. Заранее благодарна!

[Филантроп]

{"сформировать двумерный массив F размером 3х8 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл.
 В строке матрицы F,
 содержащей максимальный элемент, заменить все отрицательные числа на нули (оформить нахождение максимального элемента в виде функции).}
 
 type matr=array[1..3,1..8] of integer;
 var
 a:matr;
 i,j:integer;
 m1,k1:integer;
 f:text;
 function max1(x:matr):integer;
 var k,l,ma:integer;
 begin
 ma:=x[1,1];
 for k:=1 to 3 do
 for l:=1 to 8 do
 if x[k,l]>ma then ma:=x[k,l];
 max1:=ma;
 end;
 begin
 assign(f,'data.txt');
 rewrite(f);
 for i:=1 to 3 do begin
 for j:=1 to 8 do begin
 a[i,j]:=random(24);
 write(a[i,j]:4);
 write(f,a[i,j]:4);
 end;
 writeln;
 writeln(f);
 end;
 writeln('==========================');
  writeln(f,'==========================');

 k1:=0;
 m1:=max1(a);
 for i:=1 to 3 do begin
 for j:=1 to 8 do 
 if a[i,j]=m1 then begin k1:=i;break;end;
 if k1<>0 then break;
 end;
 for j:=1 to 8 do 
 if a[k1,j]<0 then a[k1,j]:=0;
 for i:=1 to 3 do begin
 for j:=1 to 8 do begin
 write(a[i,j]:4);
 write(f,a[i,j]:4);
 end;
 writeln;
 end;
 close(f);
 readln;
 end.

[DasV]

Благодарю Вас за старания, но к сожалению, программа не пригодилась. Вы сами ее проверяли. Она ведь работает некорректно.

[ROMA2PVT]

Благодарю Вас за старания, но к сожалению, программа не пригодилась. Вы сами ее проверяли. Она ведь работает некорректно.

Эт вы её не проверяли похоже.Файлик то посмотрите.