4. Знайдіть в Інтернеті 5 найбільших за чисельністю населення міст Донецької області (підконтрольна територія). а) Розробіть програму створення відповідного списку (формат [місто, населення]), визначення загальної кількості населення цих міст, найбільшого і найменшого з них за чисельністю.

В запись student добавляете новое поле kurs,
Type student = recordLastName: string ; bal: array [1..5] of integer; 
kurs: integer;average: real end;
В цикле по студентам добавляете ввод курса
with pupil[i] do begin
Write ('Введите фамилию студента №', i ,': '); 
Readln (LastName);
 Write('Введите курс '); Readln(kurs);
В конце программы изменяете вывод
writeln ( 'Студенты первокурсники, имеющие средний больший или равный 4');
For i:=1 to n do beginif (pupil[i].average >=4) and (pupil[i].kurs = 1) then 
write (pupil[i].LastName,',  ');

1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat
2. Вводимые числа - целые.
После этих уточнений можно написать код на PascalABC:

//Вариант с циклом repeat
var
  a, min: integer;

begin
  min := 555555;
  repeat
    readln(a);
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
  until a = 0;
  writeln(min);
end.

//вариант с циклом while
var
  a, min: integer;

begin
  min := 555555;
    readln(a);
    while (a>0) or (a<0) do begin
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
      readln(a);
   end;  
  writeln(min);
end.