Необходимо оценить общее время выполнения вытесняющей многозадачности при: E=4 T=2 N=2 1 задача (P1=1,4) 2 задача (P2=1,3)

Var N1:array[1..10] of integer;
    N2:array[1..15] of integer;
    R1:array[1..10] of integer;
    R2:array[1..15] of integer;
    min1, min2, max1, max2, i:integer;
    R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
 if R1[i]<min1 then
  begin
  min1:=R1[i];
  R1min:=i;
  end else
   begin
   if R1[i]>max1 then
    begin
    max1:=R1[i];
    R1max:=i;
    end;
   end;
for i:=1 to 15 do
 if R2[i]<min2 then
  begin
  min2:=R2[i];
  R2min:=i;
  end else
   begin
   if R2[i]>max2 then
    begin
    max2:=R2[i];
    R2max:=i;
    end;
   end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.

Как-то даже не хочется размышлять, как можно было это решить по-нормальному...

var s:string; a:array[1..4] of byte; i:integer;
begin
read(s);
for i:=1 to length(s) do
  begin    if s[i]='(' then a[1]:=i;    if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end    end;  for i:=length(s) downto 1 do
  begin    if s[i]=')' then a[4]:=i;    if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end    end;  s:=copy(s,1,a[1])+copy(s,a[3]+1,a[4]-a[3]-1)+copy(s,a[2],a[3]-a[2]+1)+copy(s,a[1]+1,a[2]-a[1]-1)+copy(s,a[4],length(s)-a[4]+1);
write(s);
end.