Даны сведение о студентах группы: ФИО студента, дата рождения студента, место рождение студента. Вывести список группы по убыванию года рождений студента.
Вот собственно что я написал. Программа не выводит ничего. Подскажите пожалуста
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 -