Nie wczytuje stringa z klawiatury

Witam, mam problem z wprowadzeniem stringa z klawiatury, nie mogę się dopatrzeć co jest nie tak, w miejscu gdzie chciałbym coś wpisać automatycznie przechodzi dalej, tak jakby wstawiało się puste pole. Co trzeba tu poprawić?

 
program ed1;
uses crt;

procedure edycja;

var
tes1: string;
edytujmenu: integer;

begin
writeln('Wpisz 1');
read(edytujmenu);

case edytujmenu of

1 : begin
writeln('Nowy tytul: ');
readln(tes1); //w tym miejscu nie czyta tekstu z klawiatury
writeln(tes1); //w tym miejscu go nie wyswietla
readln;
end;

end;

readln;
exit;
end;

begin
clrscr;
edycja;
end.

Bo wcześniejszy read() nie łyka znaku nowej linii i potem ten twój readln() zjada tylko ten znak.

@xiv - użyj Readln:

Write('Wpisz 1...');
ReadLn(edytujmenu);