Найти все слова, в которых количество цифр максимально - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста с задачей. Всю голову сломал себе. Дан текстовый файл f, каждая строка которого состоит из слов, разделённых одним и более пробелами. Найти все слова, в которых количество цифр максимально. Записать их в новый файл g.

Код к задаче: «Найти все слова, в которых количество цифр максимально - Turbo Pascal»

textual
uses
  crt;
var
  a: array [1..10] of string;
  s, sl: string;
  i, j, k, kg, kgmax: integer;
  fin,fout:text;
begin
  assign(fin,'fin.txt');
  assign(fout,'fout.txt');
  reset(fin);
  rewrite(fout);
  while not eof(fin) do
  begin
  readln (fin,s);
  s:=s+' ';
  sl:='';
  j:=1;
  for i:=1 to length (s) do
    if s[i]<>' ' then
      begin
        sl:=sl+s[i];
        if s[i] in ['0'..'9'] then
          inc(kg);
      end
    else
      begin
        a[j]:=sl;
        inc(j);
        sl:='';
        inc(k);
        if kg>kgmax then
          begin
            kgmax:=kg;
            kg:=0;
          end
        else kg:=0;
      end;
  writeln ('Максимальное количество цифр = ', kgmax);
  if kgmax>0 then
    begin
      writeln ('содержат следующие слова');
      for j:=1 to k do
        begin
          kg:=0;
          sl:=a[j];
          for i:=1 to length(sl) do
            if sl[i] in ['0'..'9'] then
              inc(kg);
            if kg=kgmax then
              begin
                writeln(a[j]);
                writeln(fout,a[j]);
              end;
 
        end;
    end;
  end;
  readln;
  close(fin);
  close(fout);
end.

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ