Pascal. Использовать функции/процедуры

[максич]

7. Описать функцию next без параметров, которая считывает из введённой строки первую литеру, отличную от пробела, и объявляет ее своим значением. Использовать эту функцию для подсчета k -- количества отличных от пробела литер текста, который задан во входной строке и за которой следует точка.

[Stilet]

Я правильно понимаю: Использование глобальной переменной допустимо?

[Serge_Bliznykov]

если я правильно понял задание:

function next:char;
var ch:char;
begin
  repeat
    Read(ch)
  until ch<>' ';
  next := ch
end;

[максич]

Сообщение от Serge_Bliznykov

если я правильно понял задание:

function next:char;
var ch:char;
begin
  repeat
    Read(ch)
  until ch<>' ';
  next := ch
end;

а можете полный код расписать пожалуйста

[Serge_Bliznykov]

извольте:

function next:char;
var ch:char;
begin
  repeat
    Read(ch)
  until ch<>' ';
  next := ch
end;

var 
  k:integer;
begin
  k:=0;
  Write('Введите строку литер с завершающей точкой в конце:');
  while next<>'.' do Inc(k);
  WriteLn('число непробельных литер = ',k);
end.

p.s. не проверял...