Научить ЭВМ запрашивать ваше имя и фамилию и выводить их на экран

У меня во второй строке дохрена ошибок, со знаками, хелпай

var   fm, im: string;  i: integer;begin   readln(фамилия, имя); for i:= 1 to 10 do  writeln(имя,' ', фамилия);  readln; end.