FreePascal. , . , , .
1. . . .
2. , , .
3. . .
type
el=^baz;
baz=record
Nazvanie:string[30];
God:string[30];
Trener:string[30];
Stadion:string[30];
Mesto:string[30];
UEFA:string[30];
Strana:string[30];
next:el;
end;
Nazvanie / . string. 256 , 30-, . . God , . Trener . Stadion . Mesto . UEFA Strana UEFA .
Fbaz,f2:fileofbaz baz, .
. 1
:
fbaz UEFA.txt, , . reset(fbaz) seek(fbaz,filesize(fbaz)). clrscr , crt. . , . .
. textcolor, , .
. 2
:
tab: baz , . k:integer . fbaz:fileofbaz .
|
|
:
k 0. . fbaz UEFA.txt, , . reset(fbaz). clrscr , crt. . , . , read, . , , . , , , . , . read. .