Файлы

[Milashka_zp]

Продолжаю разбираться в файлах и запуталась:
Условие:
Дан фаил, содержащий текст. Определить сколько раз встречаетсяв нем самое короткое слово.
Var
FM: file of char;
A: array[1..25] of char;
i,n,min,kol: integer;
s,sp,spr:string;
Begin
assign(FM,'Minlen.txt');
reset(FM);
n:=0;
While not Eof(FM) do
begin
inc(n);
readln(FM,A[n]);
end;
for i:=1 to n do
s:=s+A[i]; {для того чтоб рассматривать текст в файле как строку}
for i:=1 to n do
begin
if A[i]=' ' then
begin
spr:=copy(s,1,i); {пробую выделить каждое слово отдельно}
delete(spr,i,1); {пробую удалить все пробелы}
if length(spr)<=min then inc(kol);
end;
end;
writeln('kol =',kol);
close(FM);
end.

Я хотела отделить каждое слово содержащееся в файле отдельно и проверить на min, но я запуталась помогите пожалуйста.
Если возможно объяснить мою ошибку