var     i: byte;
         r: string;
         HELPTEXT: string;
         F: text;
         N: string;
         s: string;

         procedure createfile(name:string);

begin
HELPTEXT:=('Текстовый редактор by Andrey_Mironenko. Создан при помощи Free Pascal. Среда разработки - Free Pascal IDE.Введите OPEN для открытия файла, HELP - для справки, EXIT - для выхода из программы.');
repeat
         readln(r);
         for i:=1 to length(r) do r[i]:=upcase(r[i]);

         if r='OPEN'
         then begin
                 writeln('Введите адрес к файлу.');
                 Readln(N);
                 if N<>'' then
                 Assign(F, N);
                 Writeln('Открытие файла...');
                 Reset(F);
                 while not Eof(F) do begin
                 Readln(F, N);
                 Writeln(N);
                 end;
                 Close(F);
         end
         else

         if r='CREATE'
         then begin
                 assign(output,name+'.txt');
                 rewrite(output);
                 close(output);
         end
         else

         if r='HELP'
         then
         writeln(HELPTEXT)
         else

         if r='EXIT' then exit
         else
         writeln('Неправильная команда!');
until false;
end.