public
{ Public declarations }
delka:integer;
celytest:string;
pismena:array[0..2000] of char;
delka:=Length(celytest); //zjistim delku textu
for f:=0 to delka-1 do begin
end;
nevim jak promenou Celytest rozebrat a jednotlivy pismenka ulozim do promene Pismena[i], kde i bude pozice pismene v textu..opascalováno (Vladimir)