Дописать программу, печатающую список студентов в алфавитном порядке - Turbo Pascal

[Верен]

Есть задание:

Дан список группы 10 человек в виде:
Фамилия Год_Рождения Служба_В_Армии Прописка Пол
15 симв. 4 симв. 3 симв. 1 симв. 1 симв.
Данные в одной строке отделяются друг от друга пробелами. Пример:
Иванов 1960 нет П м
Требуется напечатать список студентов в алфавитном порядке, служивших в армии (петербуржцев и иногородних отдельно).

Дана часть программы:

program m1;
type
t = array [1..10] of char;
tt = array [1..20] of t;
var A: tt; i, j: byte;
begin
 assign (input, 'dan.txt');
 reset (input);
 assign (output, 'res.txt');
 reset (output);
 for i := 1 to 10 do
  begin
   for j := 1 to 20 do
    begin
     read (A[i,j]);
     write (A[i,j]);
    end;
    readln;
    writeln;
   end;
  close (input);
*
  close (output);
end.

Написать программу там где *

[Serge_Bliznykov]

начать нужно с того, что правильно задать тип данных для хранения сведений о студенте
например,

type
  Tstudent = record
    fio: string[15];
    god_rogdenia: integer;
    vn_armii : string(3);
    propiska : char;
    pol : char;
end;

потом написать нормальную процедуру чтения из файла (кстати, судя по описанию, файл должен иметь строго фиксированный формат).

а уже только после этого можно говорить об обработке данных (сортировке).