Найти три самые дорогие вещи - Turbo Pascal

Формулировка задачи:

Всем привет, помогите пожалуйста с программой, описание задачи в скрине.

                    Листинг программы
                
 
                        
                          
                    
Program p6;
type
  t=array[1..25] of char;
  tt=array[1..10] of t;
var
  A:tt;
  i,j:byte;
  p,k:char;
begin
   assign(input,'in.txt');
   reset(input);
   assign(output,'out.txt');
   rewrite (output);
 for i:=1 to 10 do
   begin
   for j:=  1 to 25 do
   read(A[i,j]);
   readln
   end;
 for i:=1 to 10 do
 begin
 for j:=1 to 25 do
  write (A[i,j]);
  writeln
 end;
 
       close(input);
       close(output);
 end.

А это заготовка, было бы не плохо на его основании сделать. Но не важно! Нужно сделать прогу с использованием двумерных символьных массивов, текстовых файлов и без процедур;

Заранее СПАСИБО за помощь!

Решение задачи: «Найти три самые дорогие вещи»

Листинг программы

const mm=3; nn=25; Digits=['0'..'9'];
var
  a: array [1..mm+1,1..nn] of Char;
  b: array [1..mm+1] of Longint;
  m, i, j: Integer; c, d: Char;
begin
  Assign(input,'in.txt'); Reset(input); {m:=0;}
  while not EoF do begin
    j:=0; c:=#0; if m<=mm then Inc(m);
    while (j<nn) and not EoLn do begin
      d:=c; Read(c); Inc(j); a[m,j]:=c;
      if c in Digits then begin
        if not (d in Digits) then b[m]:=0;
        b[m]:=b[m]*10+Ord(c)-Ord('0');
      end;
    end; ReadLn;
    i:=m-1; while (i>0) and (b[m]>b[i]) do Dec(i); Inc(i);
    for j:=m-1 downto i+1 do a[j]:=a[j-1];
    a[i]:=a[m]; b[i]:=b[m];
  end;
  if m>mm then Dec(m);
  for i:=1 to m do begin
    for j:=1 to nn do if a[i,j]<>#0 then Write(a[i,j]) else Break; WriteLn;
  end;
  Close(input);
end.

Объяснение кода листинга программы

В начале кода объявляются необходимые переменные: mm, nn, Digits, а также переменные a, b, m, i, j, c и d.
Затем происходит назначение файла input для чтения и сброс его в начало с помощью функции Reset.
В цикле while происходит чтение символов из файла до тех пор, пока не достигнут конец файла (EoF).
Внутри цикла while происходит проверка, что текущий символ не является нулем. Если это так, то увеличивается значение переменной m на единицу.
Далее идет цикл while, который выполняется до тех пор, пока не будут прочитаны все символы из файла или пока не будет достигнут конец файла. Внутри этого цикла происходит чтение символа из файла, увеличение значения переменной j на единицу и присваивание значения текущего символа переменной c.
Затем проверяется, является ли текущий символ цифрой. Если это так, то происходит проверка, является ли следующий символ цифрой. Если нет, то значение переменной b[m] устанавливается в ноль.
Значение переменной b[m] увеличивается на 10, к нему добавляется порядковый номер текущего символа, вычисленный как разница между порядковыми номерами текущей и предыдущей цифры, и вычитается порядковый номер символа '0'.
После окончания цикла while происходит сброс переменной m в значение m-1.
Затем происходит спуск по массиву a от m до i+1, при этом значения a[j] присваиваются значениям a[j-1], а значения b[j] присваиваются значениям b[j-1].
После этого происходит сброс переменной m в значение m-1 и начинается новый цикл while, который повторяется до тех пор, пока значение переменной b[m] больше значения b[i].
В конце цикла while происходит запись в файл input всех символов из массива a, кроме нуля, и запись в файл вывода значения переменной b[m].
Конец программы.