Определить объект СТРОКА. В качестве метода обработки, определить метод, выводящий каждый символ с новой строки — Pascal(Паскаль)

uses crt;
type
mnoz=set of char;
Stroka = object
         st:string;
         procedure Vyvod;
         end;
procedure Stroka.Vyvod;
var i:byte;
begin
for i:=1 to length(st) do
writeln(st[i]);
end;
var x:stroka;
begin
clrscr;
writeln('Введите строку:');
readln(x.st);
x.Vyvod;
readln
end.