Составить библиотеку алгоритмов редактирования текстового документа

unit RedText;{название модуля, сохранить файл под этим именем}
interface
uses crt;
procedure Open(var f,g:text);{открытие файлов для чтения и записи}
procedure Extend(var f,g:text;k:byte);{процедура расширения строк в файле}
procedure Compress(var f,g:text;k:byte);{процедура сжатия строк в файле}
procedure DelStr(var f,g:text;n:integer);{процедура удаления строки по номеру}
 
implementation
 
procedure Open(var f,g:text);
var  namef,nameg:string;
begin
write('Введите имя файла для изменений:  ');
readln(namef);
namef:=namef+'.txt';
assign(f,namef);
{$I-}
reset(f);
{$I+}
if IOResult<>0 then
 begin
  writeln('Файл с именем ',namef,' не найден.');
  writeln('Работа программы завершена. Нажмите Enter.');
  readln;
  halt;
 end;
write('Введите имя файла для записи:  ');
readln(nameg);
nameg:=nameg+'.txt';
assign(g,nameg);
rewrite(g);
end;
 
procedure Extend(var f,g:text;k:byte);
var s:string;
    k1,p,v,v1,v2,j:byte;
    i:integer;
begin
repeat
write('Раздвинуть строку на К позиций k=');
readln(k);
until k in [0..255];{проверяем правильность ввода числа, не более 255}
while not eof(f) do{пока не конец файла}
 begin
  readln(f,s);{читаем строки}
  if k+length(s)>255 then k1:=255-length(s){если в результате строка превысит 255 символов, ограничиваем К}
  else k1:=k;{если нормально, нет}
  v:=0;{количество вставок пробелов}
  repeat{повторяем пока не вставим нужное количество пробелов}
    for i:=length(s) downto 1 do{идем с конца строки}
    if (s[i]=' ')and(s[i-1]<>' ') then{если пробел, а перед ним не пробел}
     begin
      insert(' ',s,i);{вставляем пробел}
      v:=v+1;{считаем}
      if v=k1 then break;{если вставили достаточно, прерываем цикл}
     end;
  until v=k1;
  writeln(g,s);{записываем измененную строку в новый файл}
 end;
write('Файл переписан!');
close(f);{закрываем файлы}
close(g);
readln;
clrscr;{очищаем экран от ввода}
end;
 
procedure Compress(var f,g:text;k:byte);
var s:string;
    k1,p,u,u1,u2,j:byte;
    i:integer;
begin
repeat
write('Сжать строку на К позиций k=');
readln(k);
until k in [0..255];
while not eof(f) do
 begin
  readln(f,s);
  if k>length(s) then k1:=length(s){если К больше длины строки, ограничиваем}
  else k1:=k;
  p:=0;{количество пробелов, которые можно удалить( два рядом)}
  for i:=1 to length(s)do
  if (s[i]=' ')and(s[i-1]=' ')then p:=p+1;{считаем по всей строке}
  u:=0;{количество удалений пробелов}
  repeat{повторояем пока не удалим нужное количество пробелов, или пока есть что удалять}
    for i:=length(s) downto 1 do{идем с конца строки}
    if (s[i]=' ')and(s[i+1]=' ')and(s[i-1]<>' ') then{если пробел и после него пробел, а перед ним не пробел}
     begin
      delete(s,i,1);{удаляем пробел}
      u:=u+1;{считаем}
      if (u=k1)or(u=p) then break;{если удалили К пробелов, или нет пробелов для удаления, прерываем цикл}
     end;
  until (u=k1)or(u=p);
  writeln(g,s);{записываем измененную строку в новый файл}
 end;
write('Файл переписан!');
close(f);
close(g);
readln;
clrscr;
end;
 
procedure DelStr(var f,g:text;n:integer);
var i:integer;
    s:string;
begin
write('Введите номер строки для удаления: ');
readln(n);
i:=0;
while not eof(f) do
 begin
  readln(f,s);{читаем строки}
  i:=i+1;{считаем}
  if i<>n then writeln(g,s);{если номер строки=заданному, эту строку в новый файл не пишем}
 end;
if i<n then writeln('В исходном файле нет ',n,' строк!')
else writeln('Файл переписан!');
close(f);
close(g);
readln;
clrscr;
end;
end.

uses Crt,RedText;{подключаем наш модуль}
var f1,f2:text;{текстовые файлы}
    n1,n2:string;{имена файлов}
    kp,w:byte;{количество вставок(удалений)}
    ns:integer;{номер удаляемой строки}
begin
clrscr;
while w<5 do{меню выбора действия, появляется пока не выберем выход}
 begin
  writeln('    Выберите действие:');
  writeln('1-раздвинуть строки в файле');
  writeln('2-cжать строки в файле');
  writeln('3-удалить строку в файле по ее номеру');
  writeln('4-выход');
  repeat
   readln(w);
  until w in [1..4];
  case w of
  1:begin
    Open(f1,f2);
    Extend(f1,f2,kp);
    end;
  2:begin
    Open(f1,f2);
    Compress(f1,f2,kp);
    end;
  3:begin
    Open(f1,f2);
    DelStr(f1,f2,ns);
    end;
  4:exit;
  end;
 end;
readln
end.