Лотерея

uses crt;
var f:text;
    nf,s:string;
    a:longint;
    mx:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
{прочитаем файл 1 раз, найдем размер максимального выигрыша}
mx:=0;
while not eof(f) do
 begin
  read(f,a);
  if a mod 1000>mx then mx:=a mod 1000;
 end;
close(f);
writeln('Максимальный выигрыш=',mx);
{прочитаем еще раз, найдем все номера}
writeln('Номера билетов с максимальным выигрышем:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a mod 1000=mx then
   begin
    str(a,s);
    writeln(copy(s,1,3),' - ',mx);
   end;
 end;
close(f);
readln
end.

uses crt;
var f:text;
    nf,s:string;
    a:longint;
    mx:integer;
begin
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
if not fileexists(nf)then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
{прочитаем файл 1 раз, найдем размер максимального выигрыша}
mx:=0;
while not eof(f) do
 begin
  read(f,a);
  if a mod 1000>mx then mx:=a mod 1000;
 end;
close(f);
writeln('Максимальный выигрыш=',mx);
{прочитаем еще раз, найдем все номера}
writeln('Номера билетов с максимальным выигрышем:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a mod 1000=mx then
   begin
    str(a,s);
    writeln(copy(s,1,3),' - ',mx);
   end;
 end;
close(f);
end.