Вопрос Помогите составить программу в TP 7.0 (помогите пожалуйста ещё раз)

[alex2703]

Помогите составить программу в TP 7.0 (помогите пожалуйста ещё раз), нужно 1 и 5 задание. Заранее огромное спасибо!
//otvet.imgsmail.ru/download/68615577_7c582cc85b38586399ba98a025018dbd_800.jpg

 

[air95]

1) Ввод заканчивается вводом нуля. И без массива. program q195781732_1; var  i: Byte;  s: string; begin  repeat   Read(i);   if i <> 0 then    s := s + Chr(i);  until i = 0;  WriteLn(s);  ReadLn; end.

 

[Ikargod]

в очках не разберу задание, да еще повернутое