Задача на языке Pascal, с массивом

[Bonni]

Задача: замените все двухзначные числа на заданное число.
Я попробовала, но у меня Free Pascal не компилирует, помогите исправить ошибки:

program dacha16;
var a,i,c: integer;
b:array [1..1000] of integer;
begin
randomize;
writeln('vvedite luboe chislo');
readln(a);
for i:=1 to a do begin
b[i]:=random(100);
write(b[i],' ');
end;
writeln('zadayte luboe chislo');
readln(c);
for i:=1 to a do if (b[i]>9) and (b[i]<100) then b[i]:=c;
for i:=1 to a do write(b[i],' ');
end.
Теперь компилируется, но делает не совсем то, что нужно: все числа заменяет на заданное число(

[Mad_Cat]

write(b[i],' ');

if (b[i]>9) and (b[i]<100) then b[i]:=c;

Теперь компилируется, но делает не совсем то, что нужно: все числа заменяет на заданное число(

Потому что все числа у вас двузначные)
вот 1 прогон

vvedite luboe chislo
5
23 11 34 32 53 zadayte luboe chislo
56
56 56 56 56 56

вот 2 прогон

vvedite luboe chislo
4
5 4 11 4 zadayte luboe chislo
44
5 4 44 4