Probaj sa ovim da uporedjujes rimu dve reci Rec i ProbnaRec koje su tipa String, kao i KrajReci i KrajProbneReci. Za ostatak programa i modifikaciju ovog koda poptrudi se sam, a ako bas zapne tu sam.

...
KrajReci := copy(Rec,length(Rec)-1,2);
KrajProbneReci := copy(ProbnaRec,length(ProbnaRec)-1,2);
if KrajReci = KrajProbneReci then ... {ProbnaRec se rimuje sa Rec}
...

p.s. Ovo radi samo u TurboPascal-u, a ne i u standardnom Pascal-u, ako to uopste ima neke veze.

ovo gore mi je puno pomoglo, hvala jos jednom.
u tpw mi radi sve sasvim fino, ali sad imam jedan drugi problemćić
naime, kako je lista ispisanih rijeci poduža i ne stane cjela u jedan prozor trebao bih omoguciti scrollanje (a ne znam dali je to uopce moguce u pascalu).ako netko zna kako to podesiti ili ima neki drugi nacin nek mi napise.hvala.

koristi TView - imas kom[ponentu za prozor

Inace u DOSu sa writeln ne mozes da postignes skrolovanje.

Jedini nacin je

var i: integer;
i:=0;

pa svaki put kada pozoves writeln stavis
inc(i);
if i=23 then begin readln(); i:=0; end;

program moram rijesiti u TPW-u, tak da nema DOS-a

upiso sam ovo gore u proceduru za ispis i sad mi izgleda ovako:
procedure ispis;
var a:string;
begin
reset (r);
repeat
read (r,a); writeln (a);
inc(i);
if i=23 then begin
readln;i:=0;
end;
until eof (r);
end;

s tim da je r file of string, i sad mi samo ispisuje prvih 23 upisanih rijeci, ostale nista