Язык Pascal. Программирование для начинающих

uses crt;
var
    s: string;
    i: byte;
begin
    write('String: ');
    readln(s);
    clrscr;
    for i:=1 to length(s) do begin
        gotoxy(0+2*i,0+i);
        writeln(s[i])
    end;
readln
end.