const
  russ = ['А'..'П', 'Р'..'Я', 'а'..'п', 'р'..'я'];
  digits = ['0'..'9'];
var
  count_rus, count_digit: integer;
  ...
begin
  { Здесь - читаешь строку s }
  count_rus := 0; count_digit := 0;
  for i := 1 to length(s) do
    if s[i] in russ then inc(count_rus)
    else if s[i] in digits then inc(count_digit);

  { если count_rus > count_digit значит букв больше, иначе - больше цифр }
end.

If VLength(ar[Pred(j)]) > VLength(ar[j]) Then Begin { < }
        T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T

а можно случайно сгенерировать текст (или строку)?

var
   ch:char;
   s:string; 

...
Begin
...
    readln(n);
    s:='';
    randomize;
    count:=0;
    repeat
         ch:=chr(random(256));
         s:=s+ch;
         inc(count);
    until count=n;
    ...
End.

ch:=chr(random(26)+97)

  ch:=chr(random(256));

s := s + chr(32+random(255-32));

var
  count, n: byte;
  s: string;
begin
  s := '';
  n := 5 + random(255 - 5); { случайная длина от 5 до 255 символов }
  for count := 1 to n do
    s := s + chr(32+random(255-32)); { это я уже писал, почему }
end;

var f_log: text;
begin { начало основной программы }
  assign(f_log, 'log.txt');
  {$i-} rewrite(f_log); {$i+}
  { обработка ошибки открытия лог-файла }
...
      Begin { здесь обрабатываем сложение векторов }
        GetVector('first vector', v1);
        GetVector('second vector', v2);

        VAdd(v3, v1, v2); { v3 <- v1 + v2 }
        PrintVector('result', v3); { печатаем на экран }

        { и записываем в лог }
        WriteLn(f_log, 'add vector: v1=', v1.X:7:3, v1.Y:7:3,
          ' v2=', v2.X:7:3, v2.Y:7:3, ' result = ', v3.X:7:3, v3.Y:7:3);
      End;
  ...
  close(f_log); { перед самым концом программы закрываем лог-файл }
end.

var ch: char;
{ здесь генерируешь n }
for i := 1 to n do begin
  repeat
    { случайный символ в интервале ['0'(ноль) .. 'z'] }
    ch := chr(48+random(122-48));

    { но в этом интервале есть и другие символы,
    (точки, двоеточия, запятые...), и их не надо включать в строку }
  until upcase(ch) in ['A'..'Z', '0'..'9'];
  s := s + ch;
end;

begin
cifri:=0;
bukvi:=0;
repeat
    repeat
        read (str);
         if str in ['a'..'z'] then
              bukvi:=bukvi + 1;
         if str in ['0'..'9'] then
               cifri:=cifri + 1;
     until eoln;
until str='*';
readln;
if bukvi>cifri then
     writeln ('V dannoi stroke bol`she bukv');
if cifri>bukvi then
     writeln ('V dannoi stroke bol`she cifr');
if cifri=bukvi then
      writeln ('V dannoi stroke bukv i cifr porovnu');
writeln ('Dlja prodolgenija nagmite enter');
end;

begin
  str_ok := True; { введи новую переменную }
  case t of { t - твой выбор, откуда читать строку }
  1: begin
    { читаешь строку с клавиатуры (только читаешь, не обрабатываешь !!!) }
  end;

  2: begin
    { Чтение строки из файла }
  end;
  3: begin
    { генерация случайной строки }
  end;
  4: begin
    { сообщение о выходе }
    str_ok := False;
  end;
  end {case}

  { а здесь - собственно обработка строки (если нужно) }
  if(str_ok) then begin

    cifri:=0; bukvi:=0;

    for i := 1 to length(str) do
      if upcase(str[i]) in ['A'..'Z'] then bukvi:=bukvi + 1
      else if str[i] in ['0'..'9'] then cifri:=cifri + 1;

    if bukvi>cifri then writeln ('V dannoi stroke bol`she bukv')
    else if cifri>bukvi then writeln ('V dannoi stroke bol`she cifr');
           else writeln ('V dannoi stroke bukv i cifr porovnu');
  end;
end;

if (t=1) or (t=2) or (t=3) or (t=4) then

writeln ('Vvedite nomer stroki');
write ('Vibrana stroka: ');
readln (k);
min:=mx[k][1];
jmin:=1;
for i:=k to k do {не знаю, как записать иначе, мне нужна лишь одна строка}
for j:=1 to size_col do
if mx[k][j]<min then begin
     swap_cols(mx,jmin,j);
      min:=mx[k][j];
      jmin:=jmin+1;
 end
else
     j:=j+1;
{end;}

k := 3; { заменяем по 3-й строке, допустим. }

for j:=1 to size_col do
if mx[j, k]<min then begin
     swap_cols(mx,jmin,j);
      min:=mx[j, k];
      jmin:=jmin+1;
 end
else
     j:=j+1;

s := s + ch

[if str in ['a'..'z'] then

 procedure print (var mx: tmatrix);
var i, j: integer;
begin
for i:=1 to size_col do
   begin
      for J:=1 to size_col do
         

write(mx[j][i]:4);


      writeln;
   end;
end;

    for i := 1 to length(str) do
      if upcase(str[i]) in ['A'..'Z'] then bukvi:=bukvi + 1
      else if str[i] in ['0'..'9'] then cifri:=cifri + 1;

  { а здесь - собственно обработка строки (если нужно) }
  if(str_ok) then begin

    cifri:=0; bukvi:=0;

    for i := 1 to length(str) do
      if upcase(str[i]) in ['A'..'Z'] then bukvi:=bukvi + 1
      else if str[i] in ['0'..'9'] then cifri:=cifri + 1;

    if bukvi>cifri then writeln ('V dannoi stroke bol`she bukv')
    else if cifri>bukvi then writeln ('V dannoi stroke bol`she cifr') {; <--- запятой быть НЕ ДОЛЖНО !!!  }
           else writeln ('V dannoi stroke bukv i cifr porovnu');
  end;