Вставить в начало строки ее порядковый номер, в конце строки - ее длину

var
  f, h : text;
  i, cnt : integer;
  ch : char;
begin
  assign(f, 'input.txt'); reset(f);
  assign(h, 'output.txt'); rewrite(h);
  i := 1;
  while not eof(f) do
  begin
    cnt := 0;
    write(h, i, ' - "');
    while not eoln(f) do
    begin
      read(f, ch);
      write(h, ch);
      inc(cnt);
    end;
    readln(f);
    writeln(h, '" - ', cnt);
    inc(i); 
  end;
  close(f);
  close(h);
end.

uses crt;
const
rus: array [1..52] of char=('й','ц','у','к','е','н','г','ш','щ','з','ф','ы','в','а','п','р','о','л','д','я','ч','с','м','и','т','ь',
'Й','Ц','У','К','Е','Н','Г','Ш','Щ','З','Ф','Ы','В','А','П','Р','О','Л','Д','Я','Ч','С','М','И','Т','Ь');
eng: array [1..52] of char=('q','w','e','r','t','y','u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m',
'Q','W','E','R','T','Y','U','I','O','P','A','S','D','F','G','H','J','K','L','Z','X','C','V','B','N','M');
var s: string;
    i,k,n: integer;
begin
writeln('Введите текст:');
read(s);
writeln('1) русские-латинские');
writeln('2) латинские-русские');
write('==> ');
repeat
read(n);
until n in[1..2];
case n of
1:
for i:=1 to length(s) do begin
if s[i] in ['А'..'Я','а'..'я'] then begin
for k:=1 to 52 do begin
if s[i]=rus[k] then s[i]:=eng[k];
end;
end;
end;
2:
for i:=1 to length(s) do begin
if s[i] in ['A'..'Z','a'..'z'] then begin
for k:=1 to 52 do begin
if s[i]=eng[k] then s[i]:=rus[k];
end;
end;
end;
end;
write(s);
end.