Составить программу, чтобы компьютер сгенерировал 10 случайных целых трехзначных чисел. длину определять с строковых функций. в паскале

Var
    e,f: string;
    a,i: integer;
begin
  for i:=1 to 10 do
   begin
    while length(e)<3 do
     begin
     a:=random(10);
     Str (a,f);
     e:=e+f;
     end;
   writeln(e);
   e:='';
   end;
end.