Записи

[StudeHt]

Здравствуйте Господа эксперты. Помогите пожалуйста решить следующую задачку:Описать переменную "студент", содержащую: имя, фамилию, отчество студента, название учебного заведения, номер группы. Создать список студентов (N>10). Определить фамилии студентов, учащихся в одной и той же группе, в одном и том же заведении Вот мой код:

const m=100;
type EveryoneStudent=record
       Surname,Name,Patronymic,Institution:string[20];
       group:integer;
     end;
     StudentsList=record
       Items:array [1..100] of EveryoneStudent;
       Count:integer;
     end;

procedure InputStudent(var Student:EveryoneStudent);
begin
     Write('Фамилия студента: ');
     Readln(Student.Surname);
     Write('Имя студента: ');
     Readln(Student.Name);
     Write('Отчество студента: ');
     Readln(Student.Patronymic);
     Write('ВУЗ студента: ');
     Readln(Student.Institution);
     Write('Группа студента: ');
     Readln(Student.Group);
end;

procedure InputStudentsList(var Students:StudentsList);
var i:integer;
begin
     Writeln('Введите информацию о студентах:');
     repeat
       Write('Введите реальное количество студентов в группе не больше ',m,':');
       Readln(Students.Count);
     until (Students.Count>=1) and (Students.Count<=m);
     for i:=1 to Students.Count do
       InputStudent(Students.Items[i]);
end;

procedure GetSameGroupStudents(Students:StudentsList; var List:StudentsList);
var i,j:integer;
begin
     Writeln;
     Writeln('Фамилии студентов, которые учатся в одном ВУЗе и в одной группе: ');
     List.Count:=0;
     for i:=1 to Students.Count do
       for j:=1 to Students.Count do
         if (Students.Items[i].Institution=Students.Items[j].Institution) and
            (Students.Items[i].Group=Students.Items[j].Group) and
            (i<>j) then
              begin
                List.Items[List.Count+1]:=Students.Items[i];
                List.Items[List.Count+2]:=Students.Items[j];
                List.Count:=List.Count+2;
              end;
end;

procedure PrintStudentsList(List:StudentsList);
var i:integer;
begin
     writeln(List.Items[i].Surname);
     inc(List.Count);
     if List.Count=0 then writeln('Таких студентов нет');
end;

var Students:StudentsList;
    List:StudentsList;
begin
     InputStudentsList(Students);
     GetSameGroupStudents(Students,List);
     PrintStudentsList(List);
     readln;
end.

Ошибка где то в выводе, т.к. выводятся какие-то непонятные символы.. Помогите пожалуйста, заранее огромное спасибо!!!

Всем спасибо, ошибку исправил