программа не запускается .. подскажите в чем ошибка
{ Процедура предназначена для ввода 50 строк записи }
PROCEDURE VVOD;
TYPE SPRAF = RECORD
FAM : STRING [ 15 ];
ADRESS : STRING [ 40 ];
TEL : 100000 .. 999999;
END;
VAR NAROD : array [ 1 ..100 ] of SPRAF;
F : file of SPRAF;
I,G :INTEGER;
BEGIN
{ ВВОД ДАННЫХ }
FOR I := 1 TO 2 DO
WITH NAROD [ I ] DO
BEGIN
WRITELN ( I );
WRITELN ( ' vvedite familiu: ' );
READLN ( FAM );
WRITELN ( 'vvedite adres: ' );
READLN ( ADRESS );
WRITELN ( 'vvedite telefon: ' );
READLN ( TEL );
END;
{ ЗАПИСЬ ДАННЫХ В ФАЙЛ }
ASSIGN ( F, ' D:\TELEFON.txt' );
REWRITE ( F );
FOR I := 1 TO 2 do WRITE ( F, NAROD [ I ]);
CLOSE ( F );
END;
PROCEDURE READING;
BEGIN
G:= 0; { НОМЕР СТРОКИ }
ASSIGN (F, 'D:\TELEFON.txt' );
RESET ( F );
WHILE NOT EOF ( G ) DO { ПОКА ФАЙЛ НЕ ЗАКОНЧИЛСЯ }
BEGIN
INC ( G); { УВЕЛИЧИТЬ НОМЕР СТРОКИ НА 1 }
READ ( F, NAROD [ G ] ); { ЧИТАТЬ ИЗ ФАЙЛА СТРОКУ ЗАПИСИ № G}
END;
CLOSE ( F );
END.