Помогите пожалуйста с делфи

Определите наибольшее число первого файла.
Допишите плиз
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
ucrt;

var
f:textfile;
s: string;

begin
AssignFile(f,'C:\Users\Владислав\Desktop\lab 7\1.txt');
rewrite(f);{открыть файл для записи}
write(f, '-4','-3','-2','-1','0','1','2','3','4');
CloseFile(f);
Reset(f);
Read(f,s);
writeln('Файл первый ',s);
end.