Ezt a feladatot kaptuk suliban, tud segíteni vki?

Részben megoldottam a feladatot,de aztán megállt a tudomány.Az info tanár kitalálta,hogy írjunk egy olyan programot,hogyha egy textboxba kiadjuk ezt az utasítást,hogy "for valami = x to y do",akkor listázza ki egy valódi for utasításban megadottak értékeit. Sajnos csak minden 1 helyi értékkel működik és azt kellene megoldani,hogyha valaki ezt a parancsot adja ki, hogy

for kutyagumi=65342 to 896322, vagy ha ezt hogy

for z= 1 to 332 do

akkor is is működjön és listázza ki az értékeket egy másik szövegdobozba.Annyi kevés fogalmam van,hogy valami pozicionáló és beszúró függvényekkel lehet,hogy meg lehetne oldani,bár ebben sem vagyok biztos,de azokhoz viszont végképp nem konyítok semmit.Nem is nagyon értem ezt,hogy minek kér ilyen nehéz feladatot tőlünk.Elég makacs és goromba is ez a tanár sajnos. Sok mindent el sem mond az órán és olyan feladatokat ad fel,amihez még nekünk kell hozzátanulnunk néha.

Eddig jutottam,segítsetek kiegészíteni,mert időm az nincs sok rá,hétfőre le kellene adnom. Ha nagyon durva a feladat megoldása és a kérés,akkor hagyjátok inkább a fenébe,max kapok rá egy 2-est,vagy karót.Vitatkozni nincs kedvem és időm sincs rá. Csupán egy gyors segítséget kérek,ha nem túl nagy kérés.

Előre is köszi!

most ügy működik legalább, hogyha beírod,hogy

for u=0 to 9 do akkor kiírja az értékeket,vagy ha

for i=2 to 7 do akkor is, de sajna több helyi értékkel nem szuperál.

procedure TForm1.Button1Click(Sender: TObject);

const egyenlo='=';

{const to2='to';}

{const do2='do';}

var s,s1,s2,s3:string;

var x,y,i:integer;

var valtozo:string;

begin

x:=strtoint(memo1.text[7]);

y:=strtoint(memo1.text[12]);

valtozo:=memo1.Text[5];

s1:='to';

s:=memo1.seltext;

insert(s1,s,memo1.SelStart);

s3:='do';

s2:=memo1.seltext;

insert(s3,s2,memo1.SelStart);

if memo1.text='for '+valtozo+egyenlo+inttostr(x)+' '+s+' '+inttostr(y)+ ' '+s2 then begin

for i:=x to y do begin memo2.lines.Add(inttostr(i));

end;

end;

end;

end.