Записи Опции

[Credo]

Программа на записи
Даны сведение о студентах группы: ФИО студента, дата рождения студента, место рождение студента. Вывести список группы по убыванию года рождений студента.
Вот собственно что я написал. Программа не выводит ничего. Подскажите пожалуста

program swedenia;
uses crt;
const n=1;
 
type
   swed=record
   FIO : string [50];
   mesto : string [50];
   god : word;
   END;
 
VAR
   mas : array [1..n] of swed; i,j : integer; 
 
BEGIN
clrscr;
   for i:=1 to n do
   with mas[i] do
 
BEGIN
   write('Введите ФИО-------------> '); readln(FIO);
   write('Введите место рождения-> '); readln(mesto);
   write('Введите год рождения----> '); readln(god);
   readln;
end;
 
BEGIN
   for i:=1 to n-1 do
   for j:=j+1 to n do
   if mas[j].god>mas[i].god then
 
BEGIN
   for i:=1 to n-1 do
   with mas[i] do
 
BEGIN
   writeln(FIO);
   writeln(god);
   writeln(mesto);
   readln;
END;
 end;
  END.

Сообщение отредактировано: Credo - 18.11.2010 11:05