Создать текстовый файл и через меню предусмотреть просмотр, добавление и поиск данных

uses crt;
 
var
i,a,ch:integer;
s:string;
F:text;
 
Begin
  Assign(F,'D:\zuh.txt');
  repeat
    clrscr;
    writeln('Для чтения файла введите 1');
    writeln('Для добавления строк в файл введите 2');
    writeln('Для поиска строки введите 3');
    writeln('Для подсчета строк в файле введите 4');
    writeln('Для выхода введите 0');
    readln(ch);
    case ch of
    1:  begin
          clrscr;
          reset(F);
          while not Eof(F) do
            begin
              readln(F,s);
              writeln(s);
            end;
          close(F);
          writeln;
          writeln('для продолжения нажмите Enter');
          readln;
        end;
        
    2:  begin
          clrscr;
          append(F);
          writeln('Введите текст:');
          writeln('Для завершения ввода на новой строке введите 0');
          repeat
            readln(s);
            if s='0' then break;
            writeln(F,s);
          until false;
          close(F);
        end;
        
    3:  begin
          a:=0;
          i:=1;
          clrscr;
          reset(F);
          write('Введите номер строки: ');
          readln(a);
          if a>0 then
            while (i<=a) and not Eof(f) do
              begin
                readln(F);
                  if i=a-1 then
                    begin
                      readln(F,s);
                      write(s);
                      readln;
                    end;
                inc(i);
              end;
          close(F);
        end;
        
    4:  begin
          clrscr;
          i:=0;
          Reset(f);
          while not Eof(F) do
            begin
              readln(F);
              inc(i);
            end;
          Close(F);
          writeln('Количество строк в тексте: ',i);
          writeln('Для продолжения нажмите Enter');
          readln;
        end;
    end;
  until ch=0;
End.

Assign(F,'D:\zuh.txt');