Здравствуйте! Помогите пожалуйста дописать программу на Паскале. Вот условие: дан текстовы файл. Напечатать в алфавитном порядке все слова из данного файла, имеющие заданную длину n.
Код:
uses crt;
var
f1:text;
nam:string; {имя файла}
mass:array[1..200] of string; {массив слов длиной n}
n:integer; {длина слова}
k:integer; {количество слов длиной n}
i,j:integer;
st:string;
begin
clrscr;
write('Введите имя файла: ');
readln(nam);
assign(f1,nam);
rewrite(f1);
writeln('Введите текст для записи в файл:');
readln(st);
writeln(f1,st);
write('Введите длину слова n: ');
k:=0;
readln(n);
writeln('Содержимое файла');
reset(f1);
Подскажите пожалуйста как дальше текст из файла разделить на слова?