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

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