Pascal ABC Процедуры

Question

1. Известны данные о результатах прыжков в длину 20 спортсменов. Выведите фамилии призеров. 
2. Известны фамилии 25 человек, их семейное положение и сведения о наличии детей. Вывести фамилии людей, не имеющих детей, но находящихся в браке.

1) program r1; 
uses Crt; 
const N=5;M=5; 
var a:array [1..N] of string;b:array [1..M] of integer;i,j,max:integer; 
begin 
for i:=1 to N do 
begin 
read(a);b:=random(260);writeln(b,' '); 
end; 
for i:=1 to M do if max<b<i> then 
begin 
max:=b; 
j:=i; 
end; 
write(,a[j],' = ',b); 
end. 
 
2) program r1; 
uses Crt; 
const N=5; 
var a:array [1..N] of string;b:array [1..N] of integer;c:array [1..N] of integer;i:integer; 
begin 
for i:=1 to N do 
begin 
write('Введите фамилию: '); 
readln(a); 
write('Находится в браке? (1-да, 0-нет) : '); 
readln(b); 
write('Есть ли ребёнок? (1-да, 0-нет) : '); 
readln(c); 
end; 
for i:=1 to N do if (b=1) and (c=0) then writeln(a); 
end.

Сергей Степанов · Accepted Answer

1) пройти по массиву или массиву типов и определить три наибольших числа 
2) так же