Напечатать перевод заданного английского слова

var s: string;
begin
  write('Введите английское слово: ');
  readln(s);
  if s = 'word 1'
    then writeln('Перевод: слово 1')
    else if s = 'word 2'
      then writeln('Перевод: слово 2')
      else if s = 'word 3'
        then writeln('Перевод: слово 3')
        else writeln('Этого слова нет в словаре')
end.

type st = array[1..3] of string[20];
const en: st = ('word 1', 'word 2', 'word 3');
      ru: st = ('слово 1', 'слово 2', 'слово 3');
var i: integer;
    s, p: string;
begin
  write('Введите английское слово: ');
  readln(s);
  p := '';
  for i := 1 to 3 do if s = en[i] p := ru[i];
  if p <> ''
    then writeln('Перевод: ', p)
    else writeln('Этого слова нет в словаре')
end.

type st = record en, ru: string[20] end;
const dict: array[1..3] of st = ((en: 'word 1'; ru: 'слово 1'),
                                 (en: 'word 2'; ru: 'слово 2'),
                                 (en: 'word 3'; ru: 'слово 3'));
var i: integer;
    s, p: string;
begin
  write('Введите английское слово: ');
  readln(s);
  p := '';
  for i := 1 to high(dict) do
    if s = dict[i].en
      then begin
        p := dict[i].ru
      end;
  if p <> ''
    then writeln('Перевод: ', p)
    else writeln('Этого слова нет в словаре')
end.