On Wed, 13 Jun 2007 14:16:34 +0400, Andrei Yeryomin <[EMAIL PROTECTED]> wrote:

> 1.5 - аналогично.

Значит, только так:

while (i > 1 and s != '') do begin
   i = i-1;
   s = substring(s from 2);
end
r = substring(s from 1 for 1);
suspend;


-- 
Сергей Смирнов.

Ответить