new line for every symbol

Неправильно работает ввод консоли

program nepravilnorabotaetvvodconsoli;

var
  stroka: string;

begin
  writeln('vvedite stroky');
  readln(stroka);
  writeln(stroka);
end.

после запуска получаю:

vvedite stroky
i
f
i
n
d
t
r
e
a
s
h
u
r
e

ifindtreashure