Mi a baj ennek a pascal feladatnak a megoldásában?

Elakadtam ennél a feladatnál. csak annyit szeretnék kérni hogy melyik része rossz a megoldásomnak. Igazából szeretnék magam rájönni csak tényleg nem tudom hol a baki. A Feladat: Olvassunk be egy szöveget, majd írassuk ki a képernyőre a beolvasott szövegből az összes < és > jelek közé írt részeket, mindegyiket új sorba.

Például ha megadjuk a "<Gabor> és Denes <fel>masztak <a diofa>ra." mondatot, a program ezt írja ki:

Gabor

fel

a diofa

A megoldásom:

program egymasala;

var s,c:String;

i:Integer;

Begin

Write('Kérekegymondatot (Néhány szót rakj <és> jelek

közé: )');

ReadLn(s);

for i:=1 to length(s) do

if (s[i]>'<') and (s[i]<'>') then begin

Write(s[i]);

WriteLn;

end;

ReadLn;

End.

Köszönöm a segítségeteket!