Здравствуйте, lalka!

1)
[code lang=pascal h=200]program Project1;
type
tStr=string[20];
pRec=^tRec;
tRec=record
name:tStr;
surname:tStr;
{тут можно ещё кучу параметром забить}
next:pRec
end;
var
head,temp:pRec;
a:tStr;
count:integer;
begin
head:=nil;
repeat
write('Enter name:');readln(a);
if length(a)>0 then
begin
new(temp);
temp^.name:=a;
write('Enter surname:');readln(temp^.surname);
writeln('Enter one:');{}
writeln(' . . . ');{}
writeln('Enter ten:');{}
temp^.next:=head;
head:=temp;
end;
until length(a)=0;
{}
writeln('All pioners :)');
temp:=head;
count:=0;
while temp<>nil do
begin
inc(count);
writeln(count:5,temp^.name:25,temp^.surname:25);
temp:=temp^.next;
end;
{}
if count<10 then writeln('small count')
else
begin
writeln('1/5 pioners :)');
temp:=head;
while temp<>nil do
begin
if count mod 5 = 0 then writeln(count:5,temp^.name:25,temp^.surname:25);
dec(count);
temp:=temp^.next;
end;
end;
{}
temp:=head;
while temp<>nil do
begin
head:=head^.next;
dispose(temp);
temp:=head;
end;
readln;
end.[/code]

2)
[code lang=pascal h=200]type
point=record
x,y:real
end;
var
a,b,c:point;
ab,ac,bc:real;
f:text;
p:real;
function r(a,b:point):real;
begin
r:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
begin
assign(f,'180528.txt');
reset(f);
readln(f,a.x,a.y,b.x,b.y,c.x,c.y);
close(f);
ab:=r(a,b);
ac:=r(a,c);
bc:=r(b,c);
p:=(ab+ac+bc)/2;
writeln('radius:=',ab*ac*bc/(4*sqrt(p*(p-ab)*(p-ac)*(p-bc))));
writeln('bisector:=',sqrt(ab*ac*(ab+ac+bc)*(ab+ac-bc))/(ab+ac));
readln;
end.[/code]

Удачи!