10 CLEAR 1000:MAXFILES=5:DIM M(200)
20 OPEN "Шар" FOR OUTPUT AS#4:INPUT"Количество элементов";S
40 FOR K=1 TO S
50    X=RND(1):Y=RND(1)
60    X$=CHR$(INT(RND(1)*31)+224):Y$=CHR$(INT(RND(1)*31)+224)
70    PRINT #4,X$+Y$;",";X;",";Y;
80 NEXT K:CLOSE #4
90 OPEN "Шар" FOR INPUT AS#4
100 INPUT #4,M$,A,B:PRINT M$;A,B
120 IF NOT EOF(4) THEN 100
130 CLOSE #4