Одномерный символьный массив.Код готов нужна небольшая перемена.

program bb;
uses
  crt;
var
  inp, outp : text;
  mnog1 : set of char;
  st : string;
  Kolvosl, max, n, Msl, i : integer;
 
Begin
  clrscr;
  assign(inp, 'input.txt');
{  assign(output, 'output.txt');    }
  reset(inp);
  readln(inp, st);
{  rewrite(outp);  }
  mnog1:=['0' .. '9', 'A' .. 'Z', 'a' .. 'z'];
  max := 0;
  if length(st) > 0 then Kolvosl := 1;
  for i:=1 to length(st) do
  begin
    if st[i]=' ' then
    begin
      if max < n then
      begin
        max := n;
        Msl := Kolvosl;
      end;
      n := 0;
      inc(Kolvosl);
    end;
    if st[i] in mnog1 then inc(n);
  end;
  if max < n then msl := kolvosl;
  n := 0;
  kolvosl := 1;
  for i:=1 to length(st) do
  begin
    if st[i]=' ' then
    begin
      inc(kolvosl);
    end;
    if (kolvosl = Msl) and (st[i] in Mnog1) then
    begin
      write(st[i]);
{      write(outp,  st[i],' ');    }
    end;
  end;
  readln;
  close(inp);
{  close(outp);   }
end.

reset(f);
while not eof(f) do 
 begin
   readln(f,s);
   обработка строки
 end;

program bb;
uses crt;
const mnog1=['A' .. 'Z', 'a' .. 'z'];
var
inp, outp : text;
s,s1,s2: string;
max,n,i : integer;
Begin
clrscr;
assign(inp,'input.txt');
assign(outp,'output.txt');
reset(inp);
rewrite(outp);
max := 0;
while not eof(inp) do
 begin
  readln(inp,s);
  s:=s+' ';
  s1:=copy(s,1,pos(' ',s));
  n:=0;
  for i:=1 to length(s1)do
  if s1[i] in mnog1 then n:=n+1;
  if n > max then
   begin
    max:=n;
    s2:=s1;
   end;
 end;
write('Slovo s max kol bukv: ',s2);
write(outp,'Slovo s max kol bukv: ',s2);
readln;
close(inp);
close(outp);
end.