турбо паскаль

[glavad]

помогите пожалуйста решить задачу
даны три английских слова А1,А2,А3 и их русский перевод Р1,Р2,Р3.Напечатать перевод заданногоанглийского слова А4 (А4=А1 или А2 или А3) буду очень признателен если поможете

[glavad]

ап.....................

[Alex_FF]

var
  A, P: Array[1..3] of String;
  A4: String;
  I: Integer;
begin
  for I := 1 to 3 do
  begin
    WriteLn('Введите ', I, '-е слово');
    ReadLn(A[I]);
    WriteLn('Введите его перевод');
    ReadLn(P[I]);
  end;
  WriteLn('Введите слово для перевода');
  ReadLn(A4);
  for I := 1 to 3 do
    if A4 = A[I] then
    begin
      WriteLn('Перевод: ', P[I]);
      Break;
    end
    else if I = 3 then WriteLn('Нет такого слова в словаре');
  ReadLn;
  ReadLn;
end.