ФАЙЛ типизиров.

[morgan996]

Прошу помощи, уважаемые.


Дан файл целых чисел. Записать в другой файл наидольшее значение первых 10 компонентов, затем- следующих десяти компонентов и т.д. Если в последней группе менее 10 чисел, то рассматривать неполную группу чисел.

Такая задача, не могу разобраться.
Помогите пожалуйста решить

[psycho-coder]

Пиши, решу
ICQ: 410-691-984

Этот раздел не фриланс, так что все решения пишем на форум, ведь другим тоже нужно решение (что бы исправить "под себя")!!

[morgan996]

Ребята, ну помогите пожалуйста...вопрос жизни и смерти. Плиз

[psycho-coder]

Вот, правда файл не типизирован, на типизированные мозгов не хватило((

Uses Crt;
var
  inFile, outFile: Text;
  Max, pos: Integer;
  s: String;
  num: Integer;
  errno: Integer;
begin
  ClrScr;
  Assign(inFile, 'input.txt');
  Assign(outFile, 'output.txt');
  Reset(inFile);
  Rewrite(outFile);
  pos := 0;
  Max := -1;
  while not Eof(inFile) do
  begin
    pos := 0;
    repeat
      Readln(inFile, s);
      WriteLn(s, ' - ', pos + 1);
      val(s, num, errno);
      if num > Max then
        Max := num;
      Inc(pos);
      until (pos = 10) or (Eof(inFile));
    Str(Max, s);
    Writeln(max);
    WriteLn(outFile, s);
    Max := -1;
  end;
  Close(inFile);
  Close(outFile);
  ReadKey;
end.

input.txt

1
2
3
324
534
435
65
4
3
343
23
34
54
45
32
32

output.txt

534
54