Даны 3 фамилии. Определить, есть ли среди них фамилии, оканчивающиеся на букву "А"ю Вывести найденные фамилии или сообщение об отсутствии таковых.

Я вот написал:

program zadanie_3;
uses crt;
var
familiya_1,familiya_2,familiya_3,a,b,c: string;

x,y,z:integer;
begin
ClrScr;
write('Введите первую фамилию: ');
readln(familiya_1);
write('Введите вторую фамилию: ');
readln(familiya_2);
write('Введите третью фамилию: ');
readln(familiya_3);
x:=Length(familiya_1);
y:=Length(familiya_2);
z:=Length(familiya_3);
a:=familiya_1[x];
b:=familiya_2[x];
c:=familiya_3[x];
writeln;
CASE ' а' of
a : writeln(familiya_1);
b : writeln(familiya_2);
c : writeln(familiya_3);
else writeln('ЌҐвг');
end;
readln;
end.

Помогите плз.

1) Пользуемся тегами
2) Тема с таким названием в следующий раз будет удалена. Читаем правила форума.
3)

А вообще лишние какие-то телодвижения ты выполняешь ;)

uses crt;

var

  f1, f2, f3: string;

  ok: boolean;

begin

  clrscr; 

  readln(f1);
  readln(f2);
  readln(f3);

  ok := false;

  if f1[length(f1)] = 'a' then begin
    writeln(f1);
    ok := true;
  end;

  if f2[length(f2)] = 'a' then begin
    writeln(f2);
    ok := true;
  end;

  if f3[length(f3)] = 'a' then begin
    writeln(f3);
    ok := true;
  end;

  if not(ok) then writeln('No');

end.

Спасибо.