в чем проблема, что не получается, пришли свой вариант, обычная задача на записи, вот образец подобной задачи
program zap;
uses crt;
type
xim=record
name:string[10];
sim:char;
atom,yadro: real;
end;
var
massiv:array[1..100] of xim;
simv:char;
fl,i,n,maxi,mini:integer;
max, min:real...