Народ! Помогите! Хотя... Сергей Куксенков, только вы способны помочь!

Первая задача:

uses crt;
var a,b,c:array[1..100] of integer;
n,i,j,m:integer;
begin
clrscr;
randomize;
write('Vvedite razmernost pervogo massiva: ');
readln(n);
write('Vvedite razmernost vtorogo massiva: ');
readln(m);
writeln;
for i:=1 to m do
a[ i ]:=random(20)-10;
for i:=1 to n do
b[ i ]:=random(20)-10;
for i:=1 to m do
for j:=i+1 to m do
if a[ i ] > a[ j ] then
begin
a[ i ]:=a[ i ]+a[ j ];
a[ j ]:=a[ i ]-a[ j ];
a[ i ]:=a[ i ]-a[ j ];
end;
for i:=1 to n do
for j:=i+1 to n do
if b[ i ] > b[ j ] then
begin
b[ i ]:=b[ i ]+b [j ];
b[ j ]:=b[ i ]-b[ j ];
b[ i ]:=b[ i ]-b[ j ];
end;
writeln('Pervui yporyadochennui massiv');
for i:=1 to m do
write(a[ i ]:4);
writeln;
writeln;
writeln('Vtoroi yporyadochennui massiv');
for i:=1 to n do
write(b[ i ]:4);
writeln;
for i:=1 to n do
c[ i ]:=b[ i ];
for i:=n+1 to n+m do
c[ i ]:=a[i-n];
for i:=1 to n+m do
for j:=i+1 to n+m do
if c[ i] > c[ j ] then
begin
c[ i ]:=c[ i ]+c[ j ];
c[ j ]:=c[ i ]-c[ j ];
c[ i ]:=c[ i ]-c[ j ];
end;
writeln;
writeln('Obedinenue pervui i vtoroi massivu v odin yporyadochennui massiv');
for i:=1 to n+m do
write(c[ i ]:4);
readln;
end.

Вторая задача:

type student=record
fam: string[45];
nomer: 1..100;
end;
var kurs: array [1..100] of student;
i,j,n: integer;
begin
write('Введите количество студентов на курсе: ' ) ;
readln(n);
for i:=1 to n do
begin
writeln ('введите сведения о ', i , '-м студенте' ) ;
writeln ('введите фамилию студента' ) ;
readln (kurs[ i ].fam);
writeln ('введите номер группы студента' ) ;
readln(kurs[ i ].nomer);
end;
writeln;
writeln ('ввод закончен' ) ;
writeln ;
writeln('Номера групп в которых учатся студенты с одинаковыми фамилиями');
for i:=1 to n-1 do
for j:=i+1 to n do
if kurs[ i ].fam=kurs[ j ].fam then begin
writeln(kurs[ i ].nomer);
end;
readln;
end.

Делай сам