Составьте программу, которая создает файл...

uses crt;
type doc=record
         nom:integer;
         text:string;
         end;
var z:doc;
    w:char;
    f:file of doc;
    i,n,k:integer;
    st:string;
begin
clrscr;
assign(f,'doc.dat');
rewrite(f);
writeln('Введите данные о документе, oкончание ввода Esc');
i:=0;
repeat
i:=i+1;
z.nom:=i;
writeln('Строка ',i,':');
readln(z.text);
write(f,z);
w:=readkey;
until w=#27;
close(f);
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-вывод данных');
writeln('2-поиск по номеру строки');
writeln('3-поиск по содержанию строки');
writeln('другое-выход');
readln(w);
case w of
'1':begin
    reset(f);
    writeln('Содержание файла:');
    while not eof(f) do
     begin
      read(f,z);
      writeln(z.nom:2,'  ',z.text);
     end;
    close(f);
    write('Press Enter...');
    readln
    end;
'2':begin
    reset(f);
    write('Введите номер строки n=');
    readln(n);
    if(n<1)or(n>filesize(f)) then
     begin
      writeln('Такой страницы нет!');
      write('Press Enter...');
      readln;
      close(f);
     end
    else
     begin
      seek(f,n-1);
      read(f,z);
      writeln(z.nom:2,'  ',z.text);
      write('Press Enter...');
      readln;
      close(f);
     end;
    end;
'3':begin
    reset(f);
    writeln('Введите содержание строки для поиска:');
    readln(st);
    k:=0;
    for i:=0 to filesize(f)-1 do
     begin
      read(f,z);
      if z.text=st then
        begin
         writeln(z.nom:2,'  ',z.text);
         k:=1;
        end;
     end;
     if k=0 then writeln('Такой строки нет!');
     write('Press Enter...');
     readln;
     close(f);
   end;
else exit;
end;
until not(w in ['1'..'3']);
end.