Кто может помочь?

в паскале написал, а на qt не получается.
uses crt;
const na=200;
nb=5;
var a,b,a1:array[1..na] of char;
i,na1,j,k,p:byte;
c:char;
begin
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to na do
begin
a[i]:=chr(random(161)+40);{символы с кодами от 40 до 200}
write(a[i]);
end;
writeln;
writeln;
writeln('Массив B:');
for i:=1 to nb do
begin
b[i]:=chr(random(161)+40);
write(b[i]);
end;
a1:=a;na1:=na;p:=0;{запомним массив а и его размер,
при поиске из него будем вычеркивать элементы, чтоб совпало количество повторяющихся}
for i:=1 to nb do
for j:=1 to na1 do
if a1[j]=b[i] then{если совпал}
begin
for k:=j to na1-1 do{сдвигаем хвост массива на 1 влево, елемент стирается}
a1[k]:=a1[k+1];
na1:=na1-1;{уменьшаем размер массива}
p:=p+1;{считаем совпадения}
end;
if p a[j] then
begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;
writeln;
writeln('Отсортированный массив А:');
for i:=1 to na do
write(a[i]);
writeln;
writeln;
for i:=1 to nb-1 do
for j:=i+1 to nb do
if b[i]>b[j] then
begin
c:=b[i];
b[i]:=b[j];
b[j]:=c;
end;
writeln;
writeln('Отсортированный массив B:');
for i:=1 to nb do
write(b[i]);
readln
end.

std можно использовать ?

да

да

сейчас компа под рукой нет, так ты найдешь входит ли оди вектор в другой

 
C++Выделит
#include <algorithm>
#include <iostream>
#include <vector>
 
using namespace std;
 
int main()
{
    vector<int> vec1, vec2;
    int num, nums;
 
    cout << "When you stop fillng a vector, please, enter some letter." << endl;
    cout << "How much numbers are in the first vector? ";
    cin >> nums;
    cout << "Filling the first vector:" << endl;
    for (int cnt = 0; cnt != nums; ++cnt) {
        cin >> num; 
        vec1.push_back(num);
    }
 
    cout << "How much numbers are in the second vector? ";
    cin >> nums;
    cout << "Filling the second vector:" << endl; 
    for (int cnt = 0; cnt != nums; ++cnt)
    {
        cin >> num; 
        vec2.push_back(num);
    }
 
    std::sort( vec1.begin(), vec1.end() );
    std::sort( vec2.begin(), vec2.end() );
 
    cout << std::includes( vec1.begin(), vec1.end(), vec2.begin(), vec2.end() ) << endl;
 
    return 0;