Помогите с написанием программы на Pascal (в чём косяк?).

Задание: В одномерном массиве типа TPeople находится информация о N студентах гр. з-81. Найти всех студентов одного роста.
Type
Tpeople = record
Name, SurName: string[30];
Height: byte;
end;

Программа: https://pastebin.com/f8ppELB6

По дате

По рейтингу

andrei_6534

Новичок

7лет

У тебя слишком много лишних действий. Всё намного проще:

for j := 1 to n-1 do begin
for i := j + 1 to n do
if mas[j].Height = mas[i].Height then
writeln(mas[j].Name, ' ', mas[j].Surname, ' и ', mas[i].Name, ' ', mas[i].Surname, ' одного роста')
end

Но в этом случае буду выведены все пары студентов одного роста (без повторов). Если же нужно списки, то лучше сначала отсортировать массив по росту - тогда все студенты одного роста окажутся рядом.