procedure myread(var s:string);
begin
  s:='';
  while (exppointer <= length(expression)) and (expression[exppointer] = ' ') do
    exppointer := exppointer + 1;
  if exppointer > length(expression) then s:='#';
  while (exppointer <= length(expression)) and (expression[exppointer] <> ' ') do
  begin
    s := s + expression[exppointer];
    exppointer := exppointer + 1;
  end;
end;

{ Do globální proměnné expression typu string načtěte na začátku programu vstupní }
{ řádek, globální proměnnou exppointer typu integer na začátku nastavte na 1,     }
{ potom se bude funkce myread chovat jako read, ale přečte text vždy jen do první }
{ mezery. Zkuste funkci i pochopit, není to těžké -- přeskočí mezery, přečte kus  }
{ textu a dává si pozor, jestli už není na konci -- v takovém případě vrátí '#'.  }
{ Samozřejmě si můžete funkci upravit podle svých potřeb.                         }