Задача на строки. Опции

[Access Denied]

Даны 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.

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