Нужна помощь (делфи)

[Kryaker]

Нужно этот код
const alf:string='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
Забаньте меня:string;
i:byte;
begin
writeln('Введите строку из малых русских букв');
read(x);
for i:=1 to length(x) do
write(' ',pos(x,alf));



записать в делфи, помоги пожалуйста