Составить программу, определяющую, в каком из данных двух чисел больше цифры — Pascal(Паскаль)

program g;

type
  cisla = 0 .. 9;

var
  m: array [1 .. 1000] of cisla;
  i: integer;
  n1, n2: word;
  s1, s2: string;

begin
  write('Vvedite cislo 1: ');
  readln(n1);
  write('Vvedite cislo 2: ');
  readln(n2);
  str(n1, s1);
  str(n2, s2);
  if length(s1) > length(s2) then
    writeln('Dlinnee cislo= ', s1)
  else
    writeln('Dlinnee cislo= ', s2);
  readln;

end.