[Aristarh Dark]

Учить матчасть надо, батенька.

Код:

procedure TForm7.vivod1(var s:string);