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

end;

ukaz=^querty;//создаём структуру

querty=record

inf:zap;

nr,nl:ukaz;

end;

var

sozdan: boolean; //проверяет есть ли файл

fp,ft,ff:text;

verh,newE,right,left,temp:ukaz;

z:zap;

c:char;

x,kolvo,otpech,i,number:integer;//номер строки (для меню ),кол -во эл -тов

procedure okno(t:integer);FORWARD;//печать меню

procedure zapis_v_fail;FORWARD;//запись в файл

{----------------- ORGANIZACIYA IZ FAILA------------------------------------}

procedure org;//организация из файла двунаправленного списка по алфавиту

var

pop:ukaz;

d,stroka,t1,t2,t3,t4:string;

p3,p4:array[1..3]of char;

schet,pole3,pole4,errcode:integer;

begin

kolvo:=0;

gotoxy(25,25);

textcolor(black);

writeln('Input the name of file');

textcolor(white);

gotoxy(27,27);