. 3
:
st,a,b:baz , i,j:byte , fbaz:fileofbaz .
:
. , . , . . for. i 0 , j i +1 . a b . . : 29, 30, . . , , . , . .
. 4
:
a:baz , i:integer , fbaz:fileoftbaz , fir:string .
:
(Nazvanie). , . upcase, . clrscr. , fir read. fbaz UEFA.txt, , . reset(fbaz). for . :
1) ,
2) Nazvanie
2) 1). , , . , . , .
. 5
:
fbaz,f2:fileoftbaz .
:
f2 , delit.txt, , . reset(fbaz).rewrite(f2) f2 , Seek(fbaz, 0) , , , , , erase(fbaz); , (f2,'UEFA.txt');