Несложная программа на Pascal

[xliker]

Здравствуйте. Прошу просмотреть код на наличие ошибок, так как сдаю тест в онлайне и программа проходит лишь 4 из 10 тестов, на пятом запарывается. Спасибо всем кто откликнется

var
k,a:array[0..255] of longint;
i,n,m,l,c,d1,d2,s:longint;
begin
l:=0;
readln(c);
readln(d1);
readln(d2);
readln(s);
for i:=0 to 255 do
 readln(k[i]);
for i:=0 to 255 do
 readln(a[i]);
for i:=0 to 255 do
if a[i]>k[i] then begin n:=n+a[i]-k[i]; l:=1; end else m:=m+k[i]-a[i];
if l=0 then writeln('Yes, ',m-k[32]+a[32]) else writeln('No, ',(n-a[32]+k[32])*c);
end.

Сообщение от Условие:

Ваня решал задачу:
Однажды владелец обувного магазина решил изменить его название. Теперь ему нужно сменить вывеску, но владелец не хочет тратить деньги на новые буквы. Помогите ему узнать: хватит ли ему старых букв для составления новой вывески. Если хватит, то вывести Yes и количество не использованных владельцем букв. Если же не хватит, то вывести No и стоимость букв, которые придется купить, если известна стоимость одной буквы.
Для решения этой задачи Ваня нашел количество встречаемости каждого символа в старой вывеске (массив k1 с индексами от 0 до 255) и в новой (массив k2 с индексами от 0 до 255), а также количество букв, которые придется купить. Помогите Ване определить: хватит ли владельцу обувного магазина старых букв для составления новой вывески. Если хватит, то вывести Yes и количество не использованных владельцем букв. Если же не хватит, то вывести No и стоимость букв, которые придется купить, если известна стоимость одной буквы и количество букв, которые придется купить.
Примечание:
1. Для обозначения пробела не нужно букв (код пробела=32)
Формат ввода:
c - стоимость одной буквы
d1 - длина старой вывески
d2 - длина новой вывески
s - количество букв, которые необходимо купить владельцу обувного магазина
k1[0] - количество встречаемости 0-ого символа в старой вывеске
k1[1] - количество встречаемости 1-ого символа в старой вывеске
k1[2] - количество встречаемости 2-ого символа в старой вывеске
...
k1[255] - количество встречаемости 255-ого символа в старой вывеске
k2[0] - количество встречаемости 0-ого символа в новой вывеске
k2[1] - количество встречаемости 1-ого символа в новой вывеске
k2[2] - количество встречаемости 2-ого символа в новой вывеске
...
k2[255] - количество встречаемости 255-ого символа в новой вывеске

Формат вывода:
Yes/No, N/K
Где:
N-число не использованных владельцем букв
K-стоимость букв, которые придется купить

Пример ввода: (старая вывеска была a bc d, новая - a b c c)
15
6
7
1
0
...
0
2 (пробел)
0
...
0
1 (буква 'a')
1 (буква 'b')
1 (буква 'c')
1 (буква 'd')
0
...
0
0
...
0
3 (пробел)
0
...
0
1 (буква 'a')
1 (буква 'b')
2 (буква 'c')
0
...
0

Пример вывода:
No, 15

Пример ввода: (старая вывеска была abc d, новая - a b c)
10
6
5
0
0
...
0
1 (пробел)
0
...
0
1 (буква 'a')
1 (буква 'b')
1 (буква 'c')
1 (буква 'd')
0
...
0
0
...
0
2 (пробел)
0
...
0
1 (буква 'a')
1 (буква 'b')
1 (буква 'c')
0
...
0

Пример вывода:
Yes, 1