program swim;
uses crt;

const
maxswimmers = 10;

var
times : array[1..5,1..maxswimmers] of real;
names : array[1..maxswimmers] of string;
x : integer;
y : char;

begin
clrscr;
writeln;
write ('Please enter each swimmer''s times in this form - minutes.seconds');
for x := 1 to 10 do begin
writeln;
writeln ('Swimmer number ',x,' :');
write ('Name : ');
readln (names[x]);
write ('50 Free : ');
readln (times[1,x]);
write ('50 Breast : ');
readln (times[2,x]);
write ('50 Back : ');
readln (times[3,x]);
write ('50 Fly : ');
readln (times[4,x]);
write ('100 Individual Medley : ');
readln (times[5,x]);
end;

repeat

clrscr;
writeln;
writeln ('Please chose a number :');
writeln ('1. View an Individual Swimmer''s Times');
writeln ('2. View all of the Free Times');
writeln ('3. View all of the Breast Times');
writeln ('4. View all of the Back Times');
writeln ('5. View all of the Fly Times');
writeln ('6. View all of the Medley Times');
writeln ('7. Quit');
y := readkey;

case y of
'1' : begin
writeln;
write ('What is the number of the swimmer you want to look at?');
readln (x);
writeln;
writeln ('Swimmer number ',x,' :');
writeln ('Name : ',names[x]);
writeln ('50 Free : ',times[1,x]:0:2);
writeln ('50 Breast : ',times[2,x]:0:2);
writeln ('50 Back : ',times[3,x]:0:2);
writeln ('50 Fly : ',times[4,x]:0:2);
writeln ('100 Individual Medley : ',times[5,x]:0:2);
y := readkey;
end;

'2' : begin
writeln;
for x := 1 to maxswimmers do begin
writeln ('Name : ',names[x]);
writeln ('50 Free : ',times[1,x]:0:2);
end;
y := readkey;
end;

'3' : begin
writeln;
for x := 1 to maxswimmers do begin
writeln ('Name : ',names[x]);
writeln ('50 Breast : ',times[2,x]:0:2);
end;
y := readkey;
end;

'4' : begin
writeln;
for x := 1 to maxswimmers do begin
writeln ('Name : ',names[x]);
writeln ('50 Back : ',times[3,x]:0:2);
end;
y := readkey;
end;

'5' : begin
writeln;
for x := 1 to maxswimmers do begin
writeln ('Name : ',names[x]);
writeln ('50 Fly : ',times[4,x]:0:2);
end;
y := readkey;
end;

'6' : begin
writeln;
for x := 1 to maxswimmers do begin
writeln ('Name : ',names[x]);
writeln ('100 Individual Medley : ',times[5,x]:0:2);
end;
y := readkey;
end;

end;

until y = '7';

end.