Análisis de entrada proceso y salida

Análisis de entrada proceso y salida (EPS)
ENTRADA
En la entrada se registran los datos que se van a ingresar a la maquina, los datos en este caso serán
Nombre del atleta
Numero del atletaTiempo del atleta
Son los datos más importantes pero también se le pide al usuario cuantos atletas van a ser procesados.

PROCESO
La finalidad del programa es ordenar del menor tiempo al mayortiempo los atletas por lo tanto se necesita una estructura doble de repetición, repita para (“for to do”), , este método se le denomina método burbuja
for j:=1 to part do
begin
for i:=1 to part doif (tiempo[i]>tiempo[i+1]) then
begin
aux:=tiempo[i];
tiempo[i]:=tiempo[i+1];
tiempo[i+1]:=aux;
auxn:=nombre[i];
nombre[i]:=nombre[i+1];
nombre[i+1]:=auxn;
auxnum:=numero[i];numero[i]:=numero[i+1];
numero[i+1]:=auxnum;
Donde part será el número de participantes

SALIDA
En la salida se mostraran los nombres de los participantes sus numero y tiempos pero ordenado de menor a mayortiempo
Nombre
Numero
Tiempo













Este programa se realizo en turbo pascal 7 se le recuerda a la profesora que a pesar de ser el mismo lenguaje tienen que realizarse cambios porser la versión 7.0
La sintaxis del programa es la siguiente:
program proyectofinal;
uses crt;
const limite=200;
var
nombre : array [1..200] of string[20];
numero : array[1..200] of integer;tiempo : array [1..200] of real;
opc,i,j,part:integer;
aux:real;
auxnum:integer;
auxn:string[20];
begin
clrscr;
writeln('competencia de atletismo');
writeln('introduzca el numero departicipantes');
readln(part);
if part>limite then
writeln(' no procesa mas de',limite,'atletas');

if parttiempo[i+1]) then
begin
aux:=tiempo[i];
tiempo[i]:=tiempo[i+1];
tiempo[i+1]:=aux;auxn:=nombre[i];
nombre[i]:=nombre[i+1];
nombre[i+1]:=auxn;
auxnum:=numero[i];
numero[i]:=numero[i+1];
numero[i+1]:=auxnum;
end;
end;
for i:=1 to part do
begin
writeln('nombre...',nombre[i+1]);...