Дополнить каждую строку файла до заданного размера указанным символом

uses crt;
var f,g:text;
    s:string;
    n,mx,k,i:byte;
    sm:char;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
write('Задать размер строки n=');
readln(n);
write('Заполнить символом ');
readln(sm);
mx:=0;k:=0;
while not eof(f) do
  begin
    readln(f,s);
    writeln(length(s));
    if length(s)>=mx then mx:=length(s)
    else k:=1;
    for i:=1 to n-length(s) do
    s:=s+sm;
    writeln(g,s);
  end;
if k=0 then writeln('Строки упорядочены по возрастанию длин!')
else writeln('Строки не упорядочены по возрастанию длин!');
close(f);
close(g);
readln
end.

k:=0;
for i:=1 to length(s) do
if s[i] in ['A'..'Z','a'..'z'] then k:=k+1;
if k=length(s) then write('Yes!')
else write('No!');

k:=0;
for i:=1 to length(s) do
if s[i] in ['A'..'Z','a'..'z'] then
   begin
    k:=1;
    break;
  end;
if k=1 then write('Yes!')
else write('No!');

uses crt;
var f:text;
    s,s1:string;
    k,c:integer;
    t:real;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
k:=0;
while not eof(f) do
  begin
    readln(f,s);{читаем строку из файла}
    s:=s+' ';{добавим в конец пробел}
    while pos(' ',s)>0 do{пока пробелы в строке есть}
      begin
        s1:=copy(s,1,pos(' ',s)-1);{копируем слово до пробела}
        val(s1,t,c);{пытаемся превратить его в число}
        if c=0 then k:=k+1;{если код ошибки=0, то это число, считаем}
        delete(s,1,pos(' ',s));{удаляем слово с пробелом}
      end;
  end;
close(f);
write('Количество чисел=',k);
readln
end.

procedure dobavlenie(var f:fstat);
begin
reset(f3);
reset(f);
read(f3,b);
i:=filesize(f)-1;
while i>0 do
begin
seek(f,i);
read(f,a);
if a.rus>b.rus then begin
   write(f,a);
   dec(i);
   end
   else begin
   inc(i);
   seek(f,i);
   write(f,b);
   break;
   end;
end;
end;

procedure dobavlenie(var f:fstat);
begin
reset(f3);{открываем для чтения файл f3}
reset(f);{открываем для чтения файл f1}
read(f3,b);{читаем запись в файле f3}
i:=filesize(f)-1;{становимся в конец файла f}
while i>0 do{пока i не ноль}
   begin
     seek(f,i);{ставим в позицию i}
     read(f,a);{читаем эту запись}
     if a.rus>b.rus then {если значение поля rus больше b}
         begin
           write(f,a);{записываем на это место а}
           dec(i);{уменьшаем счетчик на 1, т.е. идем вверх по файлу}
        end
     else {если меньше или равно}
        begin
          inc(i);{увеличиваем счетчик на 1, идем вниз по файлу}
          seek(f,i);{в позицию}
          write(f,b);{записываем на это место b}
          break;{выходим из цикла}
       end;
  end;
end;