Добрые люди,помогите пожалуйста;)Заменить цифры от 1 до 10 словами. Например: 1 - "один" и т.д.Помогите составить программу и блок-схему.

Var 
k:integer; 
begin
read(k); 
 if k=1 then write(один); 
 if k=2 then write(два); 
 if k=3 then write(три); 
 if k=4 then write(четыре); 
 if k=5 then write(пять);     
 if k=6 then write(шесть);     
 if k=7 then write(семь);     
 if k=8 then write(восемь); 
 if k=9 then write(девять);   
 if k=10 then write(десять); 
end.