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

while schet<>4 do//пропуск 4 строк

begin

readln(ft,stroka);

schet:=schet+1;

end;

readln(ft,stroka);//считывание строки

t1:=copy(stroka,3,7);

t2:=copy(stroka,10,15);

{perevod stroki v integer}

if stroka[30]= ' '

then

t3:=copy(stroka,29,1)

else

t3:=copy(stroka,29,2);

val(t3,pole3,errcode);

{perevod stroki v integer}

if stroka[42]= ' 'then

t4:=copy(stroka,41,1)

else

t4:=copy(stroka,41,2);

val(t4,pole4,errcode);

new( newE);..//создание нового эл-та

newE^.inf.fio:=t2;//идёт присвоение по полям

newE^.inf.nomergrupp:=t1;

newE^.inf.propusk:=pole3;

newE^.inf.opravdan:=pole4;

newE^.nr:=nil;

newE^.nl:=nil;

left:=newE;Right:=newE;