Присвоить переменной Г текст, что состоит из первых 5 символов строки А и 5 и 6 символов строки Б

g:=copy(a,1,5)+copy(b,5,2);

m:=length(t)+5;

uses crt;
var ch: char; m1,m2,m3,m4,ms1,ms2: set of char;
begin
clrscr;
m1:=['а','е','ё','и','о','у','ы','э','ю','я'];
m2:=['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
m3:=['б'..'д','ж','з','й'..'н','п'..'т','ф'..'щ'];
m3:=['Б'..'Д','Ж','З','Й'..'Н','П'..'Т','Ф'..'Щ'];
ms1:=m1+m2;
ms2:=m3+m4;
write('введите символ: ');
readln(ch);
if ch in ms1 then writeln('введённый символ принадлежит множеству гласных букв')
else if ch in ms2 then writeln('введённый символ принадлежит множеству согласных букв')
else writeln('введённый символ не является буквой русского алфавита');
end.

uses crt;
var a: longint; s: string; c: integer;
begin
clrscr;
write('введите число: ');
readln(a);
str(a,s);
s:='1'+s+'1';
val(s,a,c);
write('число после преобразований: ',a);
end.

uses crt;
var s: string; k1,k2,i: byte;
begin
clrscr;
write('введите строку: ');
readln(s);
for i:=1 to length(s) do
begin
if s[i]='А' then inc(k1);
if s[i]='Б' then inc(k2);
end;
if k1>k2 then writeln('true')
else writeln('false');
end.

uses crt;
const n=5; m=6;
var a: array[1..n,1..m] of integer;
      i, j, k, l, s: integer;
begin
 s:=0;
 k:=1;
 l:=1;
 randomize;
 clrscr;
 writeln('ishodnii massiv: ');
 for i:=1 to n do
  begin
   for j:=1 to m do 
    begin
     a[i, j]:=random(101)-50;
     write(a[i, j]:5);
    end;
   writeln;
  end;
 writeln;
 for i:=1 to n do
  for j:=1 to m do
   if a[i, j]>=a[k, l] then 
                            begin
                             k:=i;
                             l: =j;
                            end;
 for i:=1 to n do
  inc(s, a[i, l]);
 writeln('max element = ', a[k, l]);
 writeln('summa = ', s);
end.