for i :=1 to n do

if a [i] > 1.6 then inc (dem)

writeln ('so hoc sinh cao hon 1.6m la ',dem);readln;end

 c) Thông báo ra màn hình số học sinh cao hơn 1.6m

for i:= 1 to n do

  if 1.6 < a[i] then dem := dem+1 ;

  writeln('so hoc sinh cao hon 1.6m la : ',dem,' hoc sinh');

bạn có thể làm gộp 3 câu như này nè 

uses crt;

var a : array[1..100] of real;

      i, N, d : integer;

      max: real;

begin

  write('Nhap so hoc sinh = '); readln (N);

  for i:= 1 to N do

    begin

      write('a[',i,']='); readln (a[i]);

    end;

  max := 0; d := 0;

  for i:= 1 to n do

    begin

      if max < a[i] then max := a[i];

      if 1.6 < a[i] then dem := dem+1 ;

    end;

  writeln('chieu cao lon nhat la : ',max);

  writeln('so hoc sinh cao hon 1.6m la : ',dem,' hoc sinh');

  readln;

end.

Chúc học tốt nhaa!