Определить, входит ли в множество слов слово "Privet"

program DZ;
uses crt;
var 
  a: array[1..10] of string;
  i: INTEGER;
  str:string; 
begin
  a[1]:='Вид';
  a[2]:='Адрес';
  a[3]:='Строка';
  a[4]:='Сервис';
  a[5]:='Привет';
  a[6]:='Вид';
  a[7]:='Дневник';
  a[8]:='Столбец';
  a[9]:='Сервис';
  a[10]:='Помощь';
  str:= 'Привет';
  for i:=1 to 3 do
    begin
    clrscr;
    if a[i] = str then
      writeln('Вид');
      writeln('Адрес');
      writeln('Строка');
      writeln('Сервис');
      writeln('Привет');
      writeln('Вид');
      writeln('Дневник');
      writeln('Столбец');
      writeln('Сервис');
      writeln('Помощь');
      writeln('Слово привет: Входит');
      
      
    end
end.

const
  a: array [1..10] of String[7] = (
    'Вид', 'Адрес', 'Строка', 'Сервис', 'Привет', 
    'Гид', 'Дневник', 'Столбец', 'Сервис','Помощь');
var
  i: Integer;
  s: String;
begin
  WriteLn('Множество слов:');
  for i:=Low(a) to High(a) do Write(' ',a[i]); WriteLn;
  Write('Слово: '); ReadLn(s);
  i:=High(a); while (i>=Low(a)) and (s<>a[i]) do Dec(i);
  WriteLn(i>=Low(a));
end.