Создать программу которая осуществляла:
1. Ввод строк s1 и s2.
2.средние символы из строки s2 удалить и поставить в s1 после первого символа ‘А’- Pascal(Паскаль)

var s,s1,s3:string;
n,i,l,o:integer;
k:char;
begin
readln(s);
readln(s1);
if ((s=' ') or (s1=' ')) then writeln('заполните строки')
else
    begin
if (length(s1) mod 2)=0 then
begin
  n:=(length(s1) div 2);
  s3:=copy(s1,n,1);
  delete(s1,n,1);
end;
  for i:=1 to length(s) do
  if ((s[i]='a')or (s[i]='A')) then
  begin l:=1;o:=i;
  end;
if l=1 then
  insert(s3,s,o+1)
else
writeln('Нет буквы А');
writeln('---------');
writeln(s3);
writeln(s);
writeln(s1); end;
end.

Program Lab_12;
uses crt;
Label m;
Var
s1,s2,s3:string[20];
n,b,r,k:byte;
Begin 
   clrscr;
   Textcolor (4);
   Writeln ('Vvedite stroky s1 ! ');
   Readln (s1);
   Writeln ( 'Vvedite stroky s2 ! ');
   Readln (s2);
   n:=length(s1);
   b:=length(s2);
   if (n=0) or (b=0)then writeln ('stroka pysta!')
else Begin
    Writeln ('isxodn. stroka s1: ');
    Write (s1:2);
    Writeln; 
    Writeln ('isxodn. stroka s2: ');
    Write (s2:2);
    Writeln;
if not(b mod 2=0) then Begin
Writeln ('Vvedeno neparn kol symvolov! '); 
goto m;
end;
end;
k:=pos('A',s1);
if k=0 then writeln ('Vy ne vveli symvol A !!!!')
else
Begin
r:=0;
s3:=copy(s2,b div 2,2);
delete(s2,b div 2,2);
insert(s3,s1,k+1);
textcolor(6);
Writeln ('stroka s1: ');
Write (s1:2);
Writeln;
Writeln ('stroka s2: ');
Write(s2:2);
End;
m:writeln (' ');
end.