Найдите самый дорогой и дешевый принтер

program zad;
 
type
  Printer = record
    firm : String[20];
    printType : String[15]; //мб какой другой тип, хз что подразумевается)
    model : String[10]; //мб числовой, зависит от данных
    cost : Word;
  end;
  Mass = Array of Printer;
  
var
  m : Mass;
  
function readFile() : Mass;
var
  f : Text;
  s : String;
  //Result : Mass;
begin
  Assign(f, 'somefile.txt'); Reset(f);
  While Not(Eof(f)) do
  begin
    ReadLn(f, s);
    SetLength(Result, Length(Result)+1);
    Result[Length(Result)-1].firm := Copy(s, 1, Pos('|', s)-1);
    Delete(s, 1, Pos('|', s));
    Result[Length(Result)-1].printType := Copy(s, 1, Pos('|', s)-1);
    Delete(s, 1, Pos('|', s));
    Result[Length(Result)-1].model := Copy(s, 1, Pos('|', s)-1);
    Delete(s, 1, Pos('|', s));
    Result[Length(Result)-1].cost := StrToInt(s);
  end;
  readFile := Result;
end;
 
begin
  m := readFile();
  WriteLn(m[0].cost);
end.