Введите данные о 5 призывниках: фамилию, рост, вес, используя пользовательский тип. Выведите фамилию и рост самого низкого призывника- QBasic(Бейсик)

' Polzovatelskii tip
TYPE Prizivnik
    Family AS STRING * 20
    Rost AS INTEGER
    Ves AS INTEGER
END TYPE
' Massiv bazi dannikh
DIM Pr(5) AS Prizivnik, MinR AS INTEGER, Num AS INTEGER
CLS
' Vvod dannikh
FOR i = 1 TO 5
    PRINT "_____Prizivnik ?:"; i
    INPUT "Vvedite familiju:", Pr(i).Family
    INPUT "Vvedite rost(santimetrov):", Pr(i).Rost
    INPUT "Vvedite ves(kilogram):", Pr(i).Ves
NEXT
'  Prosmotr rosta
MinR = Pr(1).Rost
Num = 1
FOR i = 1 TO 5
    IF Pr(i).Rost < MinR THEN MinR = Pr(i).Rost: Num = i
NEXT
' Vivod rezultta
PRINT "Samyj nuzkij prizivnik "; RTRIM$(Pr(Num).Family); " ego rost:"; Pr(Num).Rost