Дан массив, который мы вводим с клавиатуры.. Вводим 10 слов.Нужно заменить слова в массиве «дождь», «снег» на «непогода», если такие слова есть в массиве — Pascal(Паскаль)

uses crt;
type
rain=string;
snow=string;
nepogoda=string;
var
x:array[1..10] of string;
i:integer;
a:rain;
b:snow ;
c:nepogoda;

begin
clrscr;

a:='rain';
b:='snow' ;
c:='nepogoda';

for i:=1 to 10 do begin
write('x[',i,']=');
readln(x[i]);
end;

for i:=1 to 10 do 
 begin
  if (x[i] = a) or (x[i] = b) then x[i] := c;
  writeln(x[i]);
 end;
readln;
end.