Разработать программу, подсчитывающую количество слов

type t = record
a: integer;
b: string;
end;
var
f: Text;
c: array[1..100] of t;
d,i: integer;
s:string;
i:integer;
begin
i:=1;
Assign(f, 'text.txt');
reset (f);
while not eof (f) do begin
readln (f,s);
while length(s)>0 do begin
c[i].a:=Copy(s,1,pos(' ',s)-1);
c[i].b:=length(c[i].b);
end;
end;

type t = record
a: integer;
b: string;
end;
var
f: Text;
c: array[1..100] of t;
s:string;
x:t;
i,n,j:integer;
begin
i:=0;
Assign(f, 'text.txt');
reset (f);
while not eof (f) do begin
readln (f,s);
while length(s)>0 do begin
inc(i);
if pos(' ',s)=0 then begin
c[i].b:=s;
c[i].a:=length(s) ;
delete(s,1,length(s));
end
else
begin
c[i].b:=Copy(s,1,pos(' ',s)-1);
c[i].a:=length(c[i].b);
delete(s,1,pos(' ',s));
end;
 
end;
end;
close(f);
writeln('Êîëè÷åñòâî ñëîâ â òåêñòå:',i);
n:=i;
for i:=1 to n-1 do
for j:=1 to n-1 do
if c[j].a>c[j+1].a then
begin
x:=c[j];
c[j+1]:=c[j];
c[j]:=x;
end;
Assign(f, 'text1.txt');
rewrite(f);
for i:=1 to n do begin
writeln(f,c[i].b);
writeln(c[i].b);
end;
close(f);
end.

uses crt;
type t = record
a: integer;
b: string;
end;
var
f: Text;
c: array[1..100] of t;
s:string;
x:t;
i,n,j:integer;
begin
i:=0;
Assign(f, 'text.txt');
reset (f);
while not eof (f) do begin
readln (f,s);
while length(s)>0 do begin
inc(i);
if pos(' ',s)=0 then begin
c[i].b:=s;
c[i].a:=length(s) ;
delete(s,1,length(s));
end
else
begin
c[i].b:=Copy(s,1,pos(' ',s)-1);
c[i].a:=length(c[i].b);
delete(s,1,pos(' ',s));
end;
end;
end;
close(f);
writeln('Êîëè÷åñòâî ñëîâ â òåêñòå:',i);
n:=i;
for i:=1 to n-1 do
for j:=1 to n-1 do
if c[j].a>c[j+1].a then
begin
x:=c[j];
c[j]:=c[j+1];
c[j+1]:=x;
end;
Assign(f, 'text1.txt');
rewrite(f);
for i:=1 to n do begin
writeln(f,c[i].b);
writeln(c[i].b);
end;
close(f);
end.

uses crt; //модуль для работы с экраном
type t = record  //тип записи хранящей слово и его длинну
a: integer;//длинна слова
b: string;  //слово
end;
var
f: Text;//переменная для работы с текстовым файлом
c: array[1..100] of t;//массив записей
s:string; //переменная для хранения строки текста
x:t;//буфер для обмена при сортировке
i,n,j:integer; //счетчики
begin
i:=0;//обнуляеем счетчик
Assign(f, 'text.txt');//соединяемся с файлом
reset (f);  //открываем файл в режиме чтения
while not eof (f) do begin //пока не достигнут конец файла
readln (f,s); //читаем строку
while length(s)>0 do begin //пока длинна строки больше 0
inc(i); //увеличиваем счетчик на 1
if pos(' ',s)=0 then begin //если пробел не найден
c[i].b:=s; //записываем слово
c[i].a:=length(s) ; //записываем длинну слова
delete(s,1,length(s));//очищаем строку
end
else //иначе т.е пробел найден
begin
c[i].b:=Copy(s,1,pos(' ',s)-1);//записываем все до пробела(наше слово)
c[i].a:=length(c[i].b);//записываем длинну слова
delete(s,1,pos(' ',s)); //удаляем слово из строки вместе с пробелом
end;
end;
end;
close(f); //закрываем файл
writeln('Количество слов в тексте:',i);//выводим количество слов
n:=i;//записываем в n количество элементов массива
for i:=1 to n-1 do //от первого до предпоследнего
for j:=1 to n-1 do //от первого до предпоследнего
if c[j].a>c[j+1].a then  //если  длина текущего слова больше длинны последующего
begin
//меняем местами элементы
x:=c[j]; //сохраняем текущий элемент в буфер
c[j]:=c[j+1]; //сохраняем последующий элемент на место текущего
c[j+1]:=x; //записываем текущий элемент на место последующего
end;
Assign(f, 'text1.txt'); //соединяемся или создаем файл
rewrite(f); //открыаем в режими для перезаписи
for i:=1 to n do begin //от первого до последнего
writeln(f,c[i].b);//записываем слово в файл
writeln(c[i].b);//выводим  слово на экран
end;
close(f); //закрыаем файл
end.

uses crt; //модуль для работы с экраном
type t = record  //тип записи хранящей слово и его длинну
a: integer;//длинна слова
b: string;  //слово
end;
var
f: Text;//переменная для работы с текстовым файлом
c: array[1..100] of t;//массив записей
s:array[1..100] of string;
x:t;//буфер для обмена при сортировке
i,n,j,m:integer; //счетчики
begin
i:=0;//обнуляеем счетчик
write('Введите количество строк текста:');readln(m);
writeln('Введите текст! В конце каждой строки нажмите Enter!');
for j:=1 to m do
readln(s[j]);
for j:=1 to m do begin
while length(s[j])>0 do begin //пока длинна строки больше 0
inc(i); //увеличиваем счетчик на 1
if pos(' ',s[j])=0 then begin //если пробел не найден
c[i].b:=s[j]; //записываем слово
c[i].a:=length(s[j]) ; //записываем длинну слова
delete(s[j],1,length(s[j]));//очищаем строку
end
else //иначе т.е пробел найден
begin
c[i].b:=Copy(s[j],1,pos(' ',s[j])-1);//записываем все до пробела(наше слово)
c[i].a:=length(c[i].b);//записываем длинну слова
delete(s[j],1,pos(' ',s[j])); //удаляем слово из строки вместе с пробелом
end;
end;
end;
writeln('Количество слов в тексте:',i);//выводим количество слов
n:=i;//записываем в n количество элементов массива
for i:=1 to n-1 do //от первого до предпоследнего
for j:=1 to n-1 do //от первого до предпоследнего
if c[j].a>c[j+1].a then  //если  длина текущего слова больше длинны последующего
begin
//меняем местами элементы
x:=c[j]; //сохраняем текущий элемент в буфер
c[j]:=c[j+1]; //сохраняем последующий элемент на место текущего
c[j+1]:=x; //записываем текущий элемент на место последующего
end;
Assign(f, 'text1.txt'); //соединяемся или создаем файл
rewrite(f); //открыаем в режими для перезаписи
for i:=1 to n do begin //от первого до последнего
writeln(f,c[i].b);//записываем слово в файл
writeln(c[i].b);//выводим  слово на экран
end;
close(f); //закрыаем файл
end.