Курсовая работа: Разработка программы обработки экономической информации

if d='' then

begin

clrscr;

gotoxy(25,25);

writeln('This file does not exists!!!!!!!');

gotoxy(25,26);

writeln('Push the -enter- and input name of file again. ');

readln;

sozdan:=false;

exit;

end;

assign(ft,d);

{$I-}

reset( ft);

if IOResult <>0//проверка есть ли файл

then

begin

clrscr;

gotoxy(25,25);

writeln('This file does not exists!!!!!!!');//сообщение , что файла нет

gotoxy(25,26);

writeln('Push the -enter- and input name of file again. ');//ещё раз надо ввести имя файла

readln;

sozdan:= false;//переменной создания файла присвоить ложь

exit;

end;

sozdan:= true; //переменной создания файла присвоить правда

schet:=0;

while not EOF(ft) do//цикл пока не конец файла