Программа

USES CRT; { Подключение модуля CRT }
VAR Str:string;


PROCEDURE InputString(X,Y:byte;var Str:string); { Процедура ввода строки }
  Begin
    GoToXY(X,Y); { Позиционирование курсора }
    ReadLn(Str)  { Ввод строки }
  End;


BEGIN
  InputString(20,15,Str);
  GoToXY(1,1);
  WriteLn(Str)
END.