var zaciatok,pismena,i:integer;
retazec, novy:string;
begin
retazec:= edit1.Text;
zaciatok:= strtoint(inputbox('zadaj','z ktoreho ma zacat',''));
pismena:= strtoint(inputbox('zadaj','kolko pismen',''));
novy:= '';
for i:=zaciatok to (zaciatok + pismena -1) do

  novy:= novy + retazec[i];
  memo1.Lines.add (novy);


end;

end.