Считывание с файла (Паскаль)

[dima_grinevich]

В принципе я не отрицаю что задача простая(но не для меня)-в програмировании я не многого стою

[Rozalinda]

var
i,j,max,col: integer;
f: textfile;
matrix: array [1..5] of array [1..7] of integer;
begin
   assignfile(f,'input.txt');
   reset(f);
   for i := 1 to 5 do
   begin
    for j := 1 to 7 do read(f,matrix[i,j]);
    readln(f);
   end;
   close(f);
   max := matrix[1,1];
   col := 1;
   for j := 2 to 7 do if matrix[1,j] > max then begin max := matrix[1,j]; col := j; end;
   assignfile(f,'output.txt');
   rewrite(f);
   for i := 1 to 5 do
   begin
     writeln(matrix[i,col]);
     writeln(f,matrix[i,col])
   end;
   close(f);
   readln;
end.

если делать, как сказано, то будет так. Но что-то маловероятно это все-таки...

[Rozalinda]

в файле должна быть введена матрица, как ее обычно пишут. Через пробел элементы строки. Каждая строка с новой

я в упор не понимаю, какой ряд надо выводить (если читать условие). Я написала для варианта, как вы описали.