Написать код к в программе паскаль

слова-заклинания
ввод стандартный ввод или input.txt
вывод стандартный вывод или output.txt

в школе hogwarts лучшим ученикам дали - создать заклинание из одного слова на языке. у гермионы есть набор карточек с буквами. на перемене гермиона складывает слово. внезапно к ней подошёл рон. гермиона быстро смешала карточки. рону досталась только часть букв, из которой он собрал другое слово.

определите, какие карточки с буквами из набора гермионы не использовал рон, если известны слово, которое собрала гермиона, и слово, собранное роном.

формат ввода
первая строка входного файла содержит слово гермионы.

на второй строке расположено слово рона.

все буквы в обеих строках - латинские строчные. длина каждой строки не более 255 букв.

формат вывода
в выходной файл необходимо вывести в любом порядке буквы на карточках, которые использовала гермиона, но не использовал рон, либо вывести на экран сообщение о том, что рон использовал все карточки гермионы.

пример 1
ввод вывод
blackboard
block abard
пример 2
ввод вывод
block
block all cards used

Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.

#include <pch.h>

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "RUSSIAN");//Добавление русского языка

system("color  F0");//Замена цвета экрана на белый и текста на черный

int A, B, A1, B1, A2, B2, A3, B3; //Добавление переменных

cout << "Введите результаты первого взвешивания" << endl; //Приглашение к вводу

cin >> A1 >> B1; //Ввод

cout << "Первое взвешивание: " << A1 << " - " << B1 << endl; //Эхо-контроль

if ((A1 < 0) || (B1 < 0))

{

 cout << "Ошибка. Введите натуральное число" << endl;

 return 1; //Выход по ошибке 1

}

cout << "Введите результаты второго взвешивания" << endl; //Приглашение к вводу

cin >> A2 >> B2; //Ввод

cout << "Второе взвешивание: " << A2 << " - " <<  B2 << endl; //Эхо-контроль

if ((A2 < 0) || (B2 < 0))

{

 cout << "Ошибка. Введите натуральное число" << endl;

 return 2; //Выход по ошибке 2

}

cout << "Введите результаты третьего взвешивания" << endl; //Приглашение к вводу

cin >> A3 >> B3; //Ввод

cout << "Третье взвешивание: " << A3 << " - " << B3 << endl; //Эхо-контроль

if ((A3 < 0) || (B3 < 0))

{

 cout << "Ошибка. Введите натуральное число" << endl;

 return 3; //Выход по ошибке 3

}

//Вычисления

A = A1 - A3;

B = B1 - B2;

cout << "Первый математик собрал: " << A << endl <<

 "Второй математик собрал: " << B << endl; //Вывод результатов

return 0; //Штатный выход

} //end main

Объяснение:

выходит что-то в этом духе в Visual Studio Express 2017

Не совсем понял вот этот момент в задаче: "В i-й строке (1 ≤ i ≤ 3) записаны целые числа ai и bi (0 ≤ ai, bi ≤ 10 000)."

если надо сделать через цикл или что-то изменить - пиши