Нужна концовка

[Andrey770]

Никак не могу придумать концовку.
Дан массив, который мы вводим с клавиатуры..
Вводим 10 слов.Нужно заменить слова в массиве "дождь", "снег" на "непогода", если такие слова есть в массиве!!

вот код:

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
c:
writeln(x[i]);

end;
readln;
end.

Незнаю, что в концовке нужно написать, чтобы происходила замена.
PS|который раз вы меня уже выручаете))
спасибо огромное, что вы есть!

[Hacker19_90]

для замены

for i:=1 to 10 do begin
if (x[i] = 'rain') or (x[i] = 'snow') then x[i] := 'nepogoda';

ну или

if (x[i] = a) or (x[i] = b) then x[i] := c;

[Andrey770]

Сообщение от Hacker19_90

для замены

for i:=1 to 10 do begin
if (x[i] = 'rain') or (x[i] = 'snow') then x[i] := 'nepogoda';

ну или

if (x[i] = a) or (x[i] = b) then x[i] := c;

Ураа.Спасибо.
выручили!

я просто вместо ' or ' писал ' and '