store input in variable in pascal

program StoreInput;

var
    userInput: string;

begin
    write('Enter your input: ');
    readln(userInput);
    writeln('You entered: ', userInput);
end.