Если файл не существует - создать его - Pascal ABC

Формулировка задачи:

Так как в Pascal abc нету функции IOResult, решил заменить на FileExists, но не получается Вот начальный код

Program lab1;
uses crt;
var
   i,l:integer;  {переменная i в используется в циклах, l – для хранения ASCII кода символа}
   M,O,B: text; {текстовые переменные}
   s:char;     {символьная переменная, для чтения файла}
   A: array [0..255] of byte;  {массив используется в качестве счетчика}
 
begin
{$I-}   {Директива компилятора, отключение проверки ошибок ввода-вывода}
     assign(M,'Input.txt');  {Назначение файловым переменным имен внешних файлов}
     assign(O,'log.txt');
     assign(B,'Output.txt');
     reset(M);     {Открытие файла Input.txt для чтения}
     if (IOResult<>0) then begin   {Если файл Input.txt не существует}
        writeln('Файл input.txt не существует!');
        rewrite(M);       {Создание пустого файла Input.txt}
        writeln('Создан пустой файл input.txt, внесите в него текст для обработки');
        writeln('Нажмите любую клавишу для выхода');
        readkey;     {Ожидание нажатия клавиши}
        exit;    {Выход из программы}
     end;
     reset(O);    {Открытие файла log.txt для чтения}         
{$I+}  {Директива компилятора, включение проверки ошибок ввода-вывода}
     if (IOResult=0) then begin  {Если файл log.txt существует, то}
        rewrite(B);    {Создание файла output.txt}
        Writeln('Создан файл, содержащий исходный текст Output.txt');
        while not Eof(O) do begin    {пока файл log.txt не кончиться….}
                 read(O,s);      {Посимвольное чтение файла log.txt}
                 l:=ord(s);       {перевод из символа в ASCII код}
                 if l=38 then begin     
{Если встречается символ с кодом равным 38(&) – ключ, то все символы до него стираются}
                    rewrite(B);
                    continue;   {прерывание цикла, сам ключ не будет записываться в файл Output.txt}
                 end;
                 l:=l+5;        {Дешифровка}
                 write(B,chr(l));  {Запись исходного (дешифрованного) текста в файл Output.txt}
                 end;
        close(O);      {Закрытие файла log.txt}
        close(B);     {Закрытие файла output.txt}
        end
           else begin       {Если файл log.txt не существует…}
             writeln('Чтобы расшифровать текст запустите программу заново');
        end;
     while not Eof(M) do begin      {Пока файл input.txt не закончится…}
           read(M, s);    {Посимвольное чтение файла input.txt}
           i:=ord(s);       {перевод из символа в ASCII код}
           A[i]:=A[i]+1;   {Подсчет количества символов}
           if (i>=224) and (i<=255) then begin    
              i:=i-32;       {Смещение ASCII кодов маленьких русских букв}
              A[i]:=A[i]+1;   {суммирование количества маленьких букв к большим}
           end;
           if (i=184) then begin
              i:=i-16;         {Смещение ASCII кода буквы ”ё”}
              A[i]:=A[i]+1;   {суммирование количества маленьких букв ”ё” к большим ”Ё”}
           end;
           if (i>=97) and (i<=122) then begin
              i:=i-32;    {Смещение ASCII кодов маленьких английских букв}
              A[i]:=A[i]+1;   {суммирование количества маленьких букв к большим}
           end;
     end;
     Close(M);      {Закрытие файла input.txt}
     Rewrite(O);     {Открытие log.txt на запись}
     write(O,chr(209),chr(232),chr(236),chr(226),chr(238),chr(235));      {Текст: Символ}
     writeln(O,'     ',chr(202),chr(238),chr(235),'-',chr(226),chr(238));      {Текст: Кол-во}
     for i:=192 to 223 do begin    {Запись в файл log.txt количества русских букв}
     if A[i]<>0  then
        writeln(O,'   ',chr(i),'    -    ',A[i]);
     end;
     if A[168]<>0 then begin      {Запись в файл количества букв ”Ё”}
         writeln(O,'   ',chr(168),'    -    ',A[168]);
     end;
         for i:=65 to 90 do begin   {Запись в файл количества английских букв}
     if A[i]<>0  then
        writeln(O,'   ',chr(i),'    -    ',A[i]);
     end;
     writeln(O,'------------------------------------');   {Разделитель}
     write(O,chr(38));   {Запись в файл log.txt ключа, чтобы отделить фразу от служебной информации}
     reset(M);         {Открытие файла input.txt на чтение}
     while not Eof(M) do begin       {Пока файл input.txt не кончится…}
           read(M,s);                      {Посимвольное чтение файла input.txt}
           l:=ord(s);                       {перевод из символа в ASCII код}
           l:=l-5;                            {Смещение ASCII кодов на 5 влево (шифрование)}
           write(O,chr(l));                {запись зашифрованного текста в файл log.txt}
     end;
     Close(M);                            {Закрытие файла input.txt}
     Close(O);                            {Закрытие файла log.txt}
     Writeln('Создан файл со служебной информацией log.txt');
     Writeln('Нажмите любую клавишу чтобы выйти');
     readkey;            {Ожидание нажатия клавиши}
end.

Но когда файлов нету, то прога ругается что нету файлов, а она должна их создать Я написал вот так

Program lab1;
uses crt;
var
   i,l:integer;  {переменная i в используется в циклах, l – для хранения ASCII кода символа}
   M,O,B: text; {текстовые переменные}
   s:char;     {символьная переменная, для чтения файла}
   A: array [0..255] of byte;  {массив используется в качестве счетчика}
 
begin
{$I-}   {Директива компилятора, отключение проверки ошибок ввода-вывода}
     assign(M,'Input.txt');  {Назначение файловым переменным имен внешних файлов}
     assign(O,'log.txt');
     assign(B,'Output.txt');
     reset(M);     {Открытие файла Input.txt для чтения}
     if not fileexists('Input.txt') then begin   {Если файл Input.txt не существует}
        writeln('Файл input.txt не существует!');
        rewrite(M);       {Создание пустого файла Input.txt}
        writeln('Создан пустой файл input.txt, внесите в него текст для обработки');
        writeln('Нажмите любую клавишу для выхода');
        readkey;     {Ожидание нажатия клавиши}
        exit;    {Выход из программы}
     end;
     reset(O);    {Открытие файла log.txt для чтения}         
{$I+}  {Директива компилятора, включение проверки ошибок ввода-вывода}
     if fileexists('Log.txt') then begin  {Если файл log.txt существует, то}
        rewrite(B);    {Создание файла output.txt}
        Writeln('Создан файл, содержащий исходный текст Output.txt');
        while not Eof(O) do begin    {пока файл log.txt не кончиться….}
                 read(O,s);      {Посимвольное чтение файла log.txt}
                 l:=ord(s);       {перевод из символа в ASCII код}
                 if l=38 then begin     
{Если встречается символ с кодом равным 38(&) – ключ, то все символы до него стираются}
                    rewrite(B);
                    continue;   {прерывание цикла, сам ключ не будет записываться в файл Output.txt}
                 end;
                 l:=l+5;        {Дешифровка}
                 write(B,chr(l));  {Запись исходного (дешифрованного) текста в файл Output.txt}
                 end;
        close(O);      {Закрытие файла log.txt}
        close(B);     {Закрытие файла output.txt}
        end
           else begin       {Если файл log.txt не существует…}
             writeln('Чтобы расшифровать текст запустите программу заново');
        end;
     while not Eof(M) do begin      {Пока файл input.txt не закончится…}
           read(M, s);    {Посимвольное чтение файла input.txt}
           i:=ord(s);       {перевод из символа в ASCII код}
           A[i]:=A[i]+1;   {Подсчет количества символов}
           if (i>=224) and (i<=255) then begin    
              i:=i-32;       {Смещение ASCII кодов маленьких русских букв}
              A[i]:=A[i]+1;   {суммирование количества маленьких букв к большим}
           end;
           if (i=184) then begin
              i:=i-16;         {Смещение ASCII кода буквы ”ё”}
              A[i]:=A[i]+1;   {суммирование количества маленьких букв ”ё” к большим ”Ё”}
           end;
           if (i>=97) and (i<=122) then begin
              i:=i-32;    {Смещение ASCII кодов маленьких английских букв}
              A[i]:=A[i]+1;   {суммирование количества маленьких букв к большим}
           end;
     end;
     Close(M);      {Закрытие файла input.txt}
     Rewrite(O);     {Открытие log.txt на запись}
     write(O,chr(209),chr(232),chr(236),chr(226),chr(238),chr(235));      {Текст: Символ}
     writeln(O,'     ',chr(202),chr(238),chr(235),'-',chr(226),chr(238));      {Текст: Кол-во}
     for i:=192 to 223 do begin    {Запись в файл log.txt количества русских букв}
     if A[i]<>0  then
        writeln(O,'   ',chr(i),'    -    ',A[i]);
     end;
     if A[168]<>0 then begin      {Запись в файл количества букв ”Ё”}
         writeln(O,'   ',chr(168),'    -    ',A[168]);
     end;
         for i:=65 to 90 do begin   {Запись в файл количества английских букв}
     if A[i]<>0  then
        writeln(O,'   ',chr(i),'    -    ',A[i]);
     end;
     writeln(O,'------------------------------------');   {Разделитель}
     write(O,chr(38));   {Запись в файл log.txt ключа, чтобы отделить фразу от служебной информации}
     reset(M);         {Открытие файла input.txt на чтение}
     while not Eof(M) do begin       {Пока файл input.txt не кончится…}
           read(M,s);                      {Посимвольное чтение файла input.txt}
           l:=ord(s);                       {перевод из символа в ASCII код}
           l:=l-5;                            {Смещение ASCII кодов на 5 влево (шифрование)}
           write(O,chr(l));                {запись зашифрованного текста в файл log.txt}
     end;
     Close(M);                            {Закрытие файла input.txt}
     Close(O);                            {Закрытие файла log.txt}
     Writeln('Создан файл со служебной информацией log.txt');
     Writeln('Нажмите любую клавишу чтобы выйти');
     readkey;            {Ожидание нажатия клавиши}
end.

Просто заменил IOResult на fileexists. Помогите как правильно написать Ах да, прога должна написать какая буква сколько раз встречается в файле Input.txt и зашифровать, потом записать в файл Log.txt, а после повторного запуска расшифровать текст из Log.txt и записать в Output.txt Когда эти файлы есть, то прога нормально работает

Решение задачи: «Если файл не существует - создать его»

Листинг программы

if not fileexists(i)then
 begin
  assign(f,i);
  rewrite(f);
 end
else
 begin
  assign(f,i);
  append(f);//если дописывать или reset если читать
 end;

Объяснение кода листинга программы

В первой строке кода используется функция fileexists(i), которая проверяет существование файла с именем i.
Если файл не существует (то есть fileexists(i) равно false), то выполняются следующие действия:
- assign(f,i) присваивает имя i переменной f, которая представляет собой файловый объект.
- rewrite(f) перезаписывает содержимое файла f (в данном случае это будет файл, созданный в результате выполнения программы).
Если файл существует (то есть fileexists(i) равно true), то выполняются следующие действия:
- assign(f,i) присваивает имя i переменной f, которая представляет собой файловый объект.
- append(f) добавляет содержимое файла f к текущему содержимому файла, который представлен переменной f.
- В данном случае, если файл уже существует, то он будет прочитан и его содержимое добавлено к текущему содержимому файла.
Весь код представлен в виде условного оператора if not fileexists(i)then...else...end, который проверяет условие not fileexists(i). Если это условие истинно, то выполняется первая часть кода. Если это условие ложно, то выполняется вторая часть кода.