Создание числового файла

PROGRAM Pract_4;
USES CRT;
VAR F,F1:FILE OF INTEGER;
X,I,S:INTEGER;
R:BYTE; C:CHAR;
BEGIN
ASSIGN(F,'D:\F.TXT');
REPEAT
WRITELN('ГЛАВНОЕ МЕНЮ');
WRITELN('1- Создание файла');
WRITELN('2- Просмотр файла');
WRITELN('3- Дополнение в файл');
WRITELN('4- Удаление с файла');
WRITELN('5- Заменить отрицательные числа числом их квадрата');
WRITELN('0- Выход');
WRITELN('Укажите режим');
READ(R);
CASE R OF
 1:BEGIN
   {$I-}
   REWRITE(F);
   {$I+}
   IF FileExists('D:\F.TXT')=FALSE
   THEN   BEGIN
           WRITE('файл уже существует');
           CLOSE(F);
           EXIT;
          END;
   WRITELN('Прекращение создания файла-ЧИСЛО "9999"');
   REPEAT
    READ(X);
    IF X<>9999 THEN WRITE(F,X)
               ELSE BREAK;
   UNTIL FALSE;
   WRITELN(' Файл создан');
   CLOSE(F);
  END;
 2:BEGIN
    {$I-}
    RESET(F);
    {$I+}
    IF FileExists('D:\F.TXT')=FALSE
    THEN BEGIN
         WRITE('Файл не существует');
         CLOSE(F);
         EXIT;
         END;
   WRITELN('Содержимое файла');
   WHILE NOT EOF(F) DO BEGIN
                       READ(F,X);
                       WRITE(X,'  ')
                       END;
   WRITELN(' Файл прочитан полностью');
   CLOSE(F);
END;
3:BEGIN
  {$I-}
  RESET(F);
  {$I+}
  IF FileExists('D:\F.TXT')=FALSE THEN BEGIN
                                        WRITE('Файл не существует');
                                        CLOSE(F);
                                        EXIT;
                                        END;
  SEEK(F,FILESIZE(F));
  WRITELN('прекращение создания файла - число 9999');
   REPEAT
   READ(X);
   IF X<>9999 THEN write(f,x)
              ELSE BREAK;
   UNTIL FALSE;
   CLOSE(F);
END;
4:BEGIN
  ASSIGN(F1,'D:\F1.TXT');
  {$I-}
  REWRITE(F1);
  {$I+}
  IF CanCreateFile('D:\F1.TXT')=TRUE THEN  BEGIN
                                           WRITE('Файл уже существует');
                                           CLOSE(F1);
                                           EXIT;
                                           END;
   {$I-}
   RESET(F);
   {$I+}
   IF FileExists('D:\F.TXT')=FALSE THEN  BEGIN
                                          WRITE('Файл не существует');
                                          CLOSE(F);
                                          EXIT;
                                          END;
  WRITELN('Содержимое файла');
  WHILE NOT EOF(F) DO BEGIN
                      READ(F,X);
                      WRITELN(x,' Удалить?(Y/N)'); READ(C);
                      IF C='N' THEN WRITE(F1,X);
                      END;
 CLOSE(F);
 CLOSE(F1);
 ERASE(f);
 RENAME(f1,'D:\F.TXT');
END;
5:BEGIN
   ASSIGN(f1,'D:\F1.TXT');
   {$I-}
   REWRITE(F1);
   {$I+}
   IF CanCreateFile('D:\F1.TXT')=TRUE THEN  BEGIN
                                               WRITE('Файл уже существует');
                                               CLOSE(F1);
                                               EXIT;
                                               END;
   {$I-}
   RESET(F);
   {$I+}
   IF FileExists('D:\F.TXT')=FALSE THEN  BEGIN
                                           WRITE('Файл не существует');
                                           CLOSE(F);
                                           EXIT;
                                           END;
  WHILE NOT EOF(F) DO BEGIN
                      READ(F,X);
                      IF X>0 THEN BEGIN
                                   FOR I:=S-1 DOWNTO 1 DO
                                    if x<0 then break;
                                                   write(f1,I);
                                                        end
                                                   else
                                   X:=SQR(X);
                                   WRITE(F1,X);
                                   END;
  CLOSE(F);
  CLOSE(F1);
END;
0:EXIT;
END;
UNTIL FALSE;
END.