Помогите, пожалуйста, решить задачу на программирование Паскаль: Четвероклассник Петя сложил из карточек с прописными буквами слово. Оставшиеся карточки с буквами он убрал в ящик стола. Перед приходом из школы его брата Васи Петя смешал карточки, из которых он составил слово. Когда первоклассник Вася увидел на столе карточки с буквами, он попытался из них составить свое слово. Определите, какие карточки с буквами из Петиного набора не использовал Вася, если известны слово, которое собрал Петя и слово, которое собрал Вася. Ваша программа должна  Запросить слово, которое собрал Петя;  Запросить слово, которое собрал Вася;  Найти и вывести на экран в любом порядке буквы, которые использовал Петя, но не использовал Вася или вывести на экран сообщение о том, что Вася использовал все карточки с буквами Пети.

Код Pascal123456789101112131415161718192021222324252627program z1;var p,v:string;    a:array[0..255] of byte;    i,j:byte; BEGINwrite(Слово Пети: ); readln(p);write(Слово Васи: ); readln(v); if (length(p) = length(v)) then    begin        writeln(Вася использовал все карточки с буквами Пети);        exit;    end; fillchar(a,255,0);for i:=1 to length(p) do    inc(a[ord(p[i])]);   for i:=1 to length(v) do    dec(a[ord(v[i])]); write(Не использованы карточки с буквами: ); for i:=1 to 255 do    for j:=1 to a[i] do        write(chr(i), );END.