Файлы: Составить функцию, определяющую количество букв в каждом слове

var
  f: text;
 
function NumLet(var s: string): integer;
begin
  result := 1;
  while (result <= length(s)) and (s[result] <> ' ') do
    inc(result);
  delete(s, 1, result);
  result -= 1;
end;
 
begin
  assign(f, 'text.txt');
  reset(f);
  var s: string;
  readln(f, s);
  var min := 256;
  while length(s) > 0 do
  begin
    var n := NumLet(s);
    writeln(N);
    if min > N then min := N;
  end;
  writeln('min=', min);
end.

var
  f: text; //переменная, описывающая текстовый файл
 
function NumLet(var s: string): integer; //функция, считывающая кол-во букв в одном слове
begin
  result := 1;//изначальное значение функции = 1
  while (result <= length(s)) and (s[result] <> ' ') do //пока не встретится пробел или конец строки...
    inc(result);//...увеличиваем на единицу значение функции
  delete(s, 1, result);//удаляем из строки первые N символов, где N - значение функции (т.е. из строки удаляется слово с пробелом)
  result -= 1; //отнимаем от значения функции единицу, т.к. нам нужна только длина слова, а не слова с пробелом
end;
 
begin
  assign(f, 'text.txt'); //связываем переменную с файлом 'text.txt'
  reset(f); //открываем файл на чтение
  var s: string; //вводим переменную для считывания строки из файла
  readln(f, s); //считываем первую строку
  var min := 256; //вводим переменную для содержания информации о самом коротком слове (256 - максимальное кол-во символов в строке, т.е. максимальная длина слова)
  while length(s) > 0 do //пока строка не обнулится...
  begin
    var n := NumLet(s); //...считываем кол-во букв в слове,
    writeln(N);//выводим на экран
    if min > N then min := N;//если длина очередного слова меньше min, то присваиваем ее значение переменной min
  end;
  writeln('min=', min); //выводим значение min на экран
end.