Курсовая работа: Автоматизированная система обработки структур данных

var

i: byte;

f: text;

res: integer;

fname: string [80] ;

otv: char;

begin

assign(f,'tab. pas');

fname: ='tab. pas';

{$I-}

reset(f); { открыть файл для чтения }

{$I+}

res: =IOResult;

if res<>0 then

begin

writeln('ОШИБКА: файл ',fname, ' не найден');

writeln('Для продолжения нажмите Enter');

readln;

halt;

end;

readln(f);

for i: =1 to 15 do begin

read(f,d [i]. nomer);

read(f,d [i]. tovar);

read(f,d [i]. data);

read(f,d [i]. srok);

read(f,d [i]. stoim);

end;

close(f);