Помогите пожалуйста решить задачу на Паскале

Необходимо сформировать файл, в который будут входить буквы,не имеющиеся в матрице.Матрица состоит только из букв,тип char. Написала процедуру,но что-то не так с выводом...выводит все буквы,где ошибка не могу понять...
Вот сама процедура...

procedure netvmatr (var f:tfile);
var l,s:set of char;
i,j: integer;
c:char;
a:matr;

BEGIN
s:=[];
for c:='a' to 'z' do
s:=s+[c];
for c:='A' to 'Z' do
s:=s+[c];
l:=[];
for i:=1 to n do
for j:=1 to n do
if not (A[i][j] in l) then
l:=l+[A[i][j]];

Assign(f,'n.txt');
rewrite(f);
s:=s-l;
for c:='a' to 'z' do
begin
if c in s then begin
write(f,c,' ');
write(c,' ');
end;
end;
for c:='A' to 'Z' do
begin
if c in s then begin
write(f,c,' ');
write(c,' ');
end;
end;
Close(f);
end;

Примечание:
not (c in l) тоже не помогает...=(
там разницы особо нет...выводит все равно так же...

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.