...válasz adam887 269. kommentjére: Szia, szerintem nagyon egyszerűen. A szóközöket meg kell számolni egy adott szövegben. Amit érdemes tudni, hogy a (tp/free) pascal a karaktereit az ASCII kódtáblából építi fel, így nekünk is ez kell, hogy legyen a kiindulási pont. A szóköz ASCII kódja a #32.
Készítettem egy kis alkalmazást, amelyben egy függvény visszatérési értéke szolgáltatja a paraméterként átadott string típusú változóban tárolt értékben található szóközök számát.

program koz;
uses crt, dos;

var
  szoveg: string;
{
  Fuggveny ami szolgaltatja a szokozok szamat
  Parameterkent egy string tipusu valtozot var.
  A szokoz ASCII kodja a #32, ezt kell keresni
  a megadott szovegben....
}
function SzokozokSzama(var szo: string): byte;
var kozok_szama, i: byte;
begin
  kozok_szama:= 0;
  for i:= 1 to Length(szo) do begin
    if (szo[i] = #32) then Inc(kozok_szama, 1);
  end;
  SzokozokSzama:= kozok_szama;
end;
{program_torzs...}
begin
  ClrScr;
  szoveg:= 'Alma a fa alatt, nyari piros alma.';
  WriteLn('Szoveg tartalma: ', szoveg);
  WriteLn('Szokozok szama : ', SzokozokSzama(szoveg), ' db.');
  Write('Kilepes ');
  ReadLn;
end.

nem egy veszett dolog...

...válasz adam887 266. kommentjére:

program tegla_visszafele;
uses crt, dos;

const
  szo = 'tegla';
  
  
 procedure SzoVisszaFele(const szoveg: string);
 var i: byte;
 begin
   for i:= Length(szoveg) downto 1 do Write(szoveg[i]);
   WriteLn;
 end;

begin
  WriteLn('A ', szo, ' szoveg visszafele kiirva: ');
  SzoVisszaFele(szo);
  ReadLn;
end.

Valahogy így.

...válasz adam887 263. kommentjére: Rendben, és előre is köszi. Én mostanság nem igazán érek rá videókat készíteni, talán, ha lesz időm újra neki vágok, hiszen annyi minden van még amit meg lehetne mutatni.