Something

program Krepšininkai;

uses CRT;

const nMok = 16;

var
    pavardė : array [0..(nMok-1)] of array [0..31] of char;
    ūgis    : array [0..(nMok-1)] of integer;
    i,n     : integer;

begin
    for i:=0 to (nMok-1) do begin
        ClrScr();
        WriteLn('Įveskite ',i+1 ,'-ojo mokinio pavardę'); ReadLn(pavardė[i]);
        WriteLn('Įveskite ',i+1 ,'-ojo mokinio ūgį (cm)'); ReadLn(ūgis[i]);
    end;
    
    ClrScr();
    WriteLn('Į krepšinio komandą pretenduoti gali:');
    WriteLn();
    n:=0;
    for i:=0 to (nMok-1) do begin
        if ūgis[i] >= 170 then begin
            n:=n+1;
            WriteLn(n:((nMok div 10)+1),'. ', pavardė[i]:32, ' (', ūgis[i]:0,' cm)');
        end;
    end;
    WriteLn();
    WriteLn('Pretendentų skaičius - ', n:0);
    
    ReadLn();
end.