Описать процедуру Lines(FileIn, FileOut), которая считывает из входного файла FileIn строки и записывает их в файл FileOut, вставляя в начало каждой строки ее порядковый номер (должен занимать 4 позиции и пробел) и в конец строки число, показывающее количество символов в этой строке — Pascal(Паскаль)

uses crt;
procedure Lines(var filein,fileout:text);
var s:string;
    i,k:byte;
begin
write('Имя файла для чтения: ');
readln(s);
s:=s+'.txt';
assign(filein,s);
{$I-} reset(filein);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',s);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(s);
s:=s+'.txt';
assign(fileout,s);
rewrite(fileout);
i:=0;
while not eof(filein) do
 begin
  i:=i+1;
  readln(filein,s);
  writeln(fileout,i:4,' ',s,length(s));
 end;
close(filein);
close(fileout);
end;
var f,g:text;
begin
clrscr;
Lines(f,g);
write('Файл переписан!');
readln
end.