01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / FILE

 program file;
 USES CRT
 TYPE
  S=RECORD
  NAME :STRING[8];
  A1,A2,A3:INTEGER
    END;
TEXT=FILE OF S;
X:S;
IDN:STRING[8];
SRXR,SA1,SA2,SA3,SA:REAL;
I,N;INTEGER;
I :CHAR;
F :TEXT;
BEGIN
CLRSCR;
ASSIGN(F,'Z.TXT');
RESET(F);
I:=0;
REPEAT
INC(I);WRITELN('‡ ЇЁбм',I);
 WRITE('” ¬Ё«Ёп:');read(F,XR[I].A1);