Составьте программу, которая по введенному вами числу N (от 1 до 100) напечатает все натуральные числа X русскими буквами (двадцать, сорок пять и т.д.) — Pascal(Паскаль)

const
  max=10;
var
  a:array[1..max]of string;
  i,n:integer;
  temp:string;
begin
  a[1]:='один';
  a[2]:='два';
  a[3]:='три';
  a[4]:='четыре';
  a[5]:='пять';
  a[6]:='шесть';
  a[7]:='семь';
  a[8]:='восемь';
  a[9]:='девять';
  a[10]:='десять';
  readln(n);
  writeln('Итог :');
  for i:=1 to max do
  begin
    temp:=a[i];
    while pos(' ',temp)<>0 do
      delete(temp,pos(' ',temp),1);
    if length(temp)=n then
      write(a[i],' ');
  end;
  writeln
end.