help με pascal και records(SOLVED)

[oxide]

8ελω να φτιαξω εναν προγραμματακι μερος του οποοιυ θα κανει το εξης

θα δεχεται το ετος και τον αριθμο τιμολογιων και μετα θα διαβαζει τοσες φορες

το record τιμολογια...

το προβλημα ειναι οτι οταν παω να το εκτυπωσω βγαζει 000

και τπτ αλλο...

ο κωδικας μου

program a3af10;

uses crt;

type

timol=record

date:string[10];

at:integer;

ka8_a3ia:longint;

sun_fpa:byte;

end;

pinakas=array[1..50] of timol;

pin2=array[1..6,1..3] of integer;

var

year,M,count:integer;

timologia:pinakas;

fapes:pin2;

procedure etos(var year:integer);

begin

readln(year);

end;

procedure ari_m(var M:integer);

begin

readln(M);

end;

procedure stoix_tim(M,year:integer;var count:integer;var timologia:pinakas);

var

i:integer;

date2,date:string;

at,date3,code:integer;

ka8_a3ia:longint;

sun_fpa:byte;

begin

for i:=1 to M do

begin

readln(date);

readln(at);

readln(ka8_a3ia);

readln(sun_fpa);

date2:=copy(date,7,4);

val(date2,date3,code);

if date3=year then

begin

with timologia do begin

date:=date;

at:=at;

ka8_a3ia:=ka8_a3ia ;

sun_fpa:=sun_fpa ;

end;

count:=count+1;

end;

end;

end;

procedure emf_tim(count:integer;timologia:pinakas);

var

i:integer;

begin

write('HMEROMHNIA':10,'AT':5,'KA8.A3IA':10,'SYN.FPA':9);

for i:=1 to count do

begin

writeln(timologia.date) ;

write(timologia.at) ;

write(timologia.ka8_a3ia);

write(timologia.sun_fpa)

end

end;

begin

clrscr;

etos(year);

ari_m(M);

stoix_tim(M,year,count,timologia);

emf_tim(count,timologia);

end.

σορι για τον ακαταστατο κωδικα...

[oxide]

βρηκα το λαθος τελικα...ευχαριστω οσους ενδιαφερθηκαν!