Тема массивы, язык паскаль. составьте которая заменяет все числа не кратные 50 или больше чем 10 на 11(массив задается с клавиатуры , количество элементов 14)

Program z1;
var a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
read(a[i]);
if (a[i] mod 50 <>0) or (a[i]>10) then a[i]:=11;
end;
for i:=1 to 14 do writeln(a[i]);
end.