Заменить в массиве все цифры 2 на 5

Program Massiv;
Uses CRT;
Const
   N = 20;
Var
   I: byte;
   M: array[1..N] of byte;
Label 1;
Begin
ClrScr;
1: Writeln ('Введите элементы массива, учитывая, что элементами являются ЦИФРЫ');
   For I:=1 to N do
   Readln (M[I]);
   For I:=1 to N do
   If (M[I]<0) or (M[I]>9) then
   Begin
     Writeln ('Ошибка! Вводите, пожалуйста, только числа от 0 до 9!');
     GoTo 1;
     Readln;
   End
   Else
Begin
   Write ('Исходный массив: ');
   For I:=1 to N do
   Write (M[I]:2);
   For I:=1 to N do
   If M[I]=2 then M[I]:=5;
   Writeln;
   Write ('Итоговый массив: ');
   For I:=1 to N do
   Write (M[I]:2);
End;
Readln;
Readkey;
End.

uses crt;
var m:array[1..100]of integer;
i,n:integer;
 
begin
 write('Введите кол-во элементов -> ');
 readln(n);
 i:=1;
 for i:=1 to n do
 repeat 
  write('Введите ',i,'-й элемент -> ');
  readln(m[i]);
 until (m[i]>=0) and (m[i]<=9)
 for i:=1 to n do if m[i]=2 then m[i]:=5;
 writeln('Преобразованный массив:');
 for i:=1 to n do write(m[i],' ');
 readln;
end.