Работа с файлами (Pascal)

[Viktorionchik]

Дан символьный файл f, содержащий произвольный текст длинной 500 слов. Слова в тексте разделены пробелами и знаками препинания. Получить 10 наиболее часто встречающихся слов и число их появления.

//можно в принципе это сделать для текста любой длинны и искать 1 наиболее повторяющее слово с число его повторений

[Streletz]

Самостоятельные попытки были?

[Viktorionchik]

Да, если код программы, но она некорректно работает((

const mn=[' ', ',', '.', '!', '?'];
var a:array[1..100] of string;
    b:array[1..100] of byte;
    i,j,n,t1:byte;
    s,s1,t2:string;
    f:text;
    
BEGIN
  assign(f,'in.txt');reset(f);
  while not Eof(f) do
  begin
   readln(f,s);
   s:=s+' ';s1:='';
   For i:=1 to length(s) do
     if not(s[i] in mn) then s1:=s1+s[i] else
     begin
     if s1<>'' then
        begin
        inc(n);
        a[n]:=s1;
        end;
        s1:='';
     end;
   end;
  for i:=1 to n do
  for j:=i+1 to n do
  if a[i]=a[j] then inc(b[i]);
 
  for i:=n downto 2 do
  for j:=2 to i do
  if b[j]>b[j-1] then
 
   begin
   t1:=b[j];
   b[j]:=b[j-1];
   b[j-1]:=t1;
 
   t2:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=t2;
   end;
 
 for i:= 1 to 10 do
 writeln(a[i]);

close(f);
END.

[Krok27]

Значит не было.

[Vanta11a]

Тупо в лоб: массив

type my_type = record
  word:string;
  count:integer;
end;
array [1..500] of my_type;

И для каждого слова - проверка на наличие в массиве. Нет слова - вписал в массив, счетчик на +1, побежали дальше.