Курсовая работа: Разработка программных продуктов

END;

{Запись данных в файл}

procedure ZF (NF:ST1);

var FID:text;

begin

assign(FID,'d:\Ish.txt');{связывание FID с физическим файлом NF}

reset (FID); {открыть FID для чтения}

with Z do

while not seekeof (FID) do

begin {Ввод данных строки:}

readln (FID,fio,oklad,premi9,nalog,itogo);

fio:=filtr(fio); {фильтрация naim}

write (F,Z); {вызов процедуры вывода в F}

end;

close(FID);

end; {конец процедуры ZF}

procedure ZF1 (NF:ST1);

var FID:text;

begin

assign(FID,'d:\pdop.dat');{связывание FID с физическим файлом NF}

reset (FID); {открыть FID для чтения}

with Z do

while not seekeof (FID) do

begin {Ввод данных строки:}

readln (FID,fio,oklad,premi9,nalog,itogo);

fio:=filtr(fio); {фильтрация name}

write (F,Z); {вызов процедуры вывода в F}

end;

close(FID);