Описать таблицу химических элементов

uses crt;
type elem=record
          naz:string[10];
          sim:string[2];
          mas,zar:byte;
          svs:string[50];
          end;
var el:array[1..250] of elem;
    n,i,mx,mn,imx,imn,f:byte;
    sm:string[2];
    c:char;
begin
clrscr;
writeln('Введите данные о химических элементах:');
n:=0;
repeat
n:=n+1;
writeln('Элемент ',n);
write(' Название(до 10 символов): ');readln(el[n].naz);
write(' Обозначение(2 символа): ');readln(el[n].sim);
write(' Масса атома: ');readln(el[n].mas);
write(' Заряд: ');readln(el[n].zar);
write(' Свойства(до 50 символов): ');readln(el[n].svs);
c:=readkey;
until c=#27;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-вывести данные об элементе по его обозначению');
writeln('2-найти элемент с самой большой массой атома');
writeln('3-найти элемент с самым маленьким зарядом ядра');
writeln('Другое - выход');
write('выбор ');readln(c);
case c of
'1':begin
  f:=0;
  write('Введите обозначение из 2х символов ');
  readln(sm);
  for i:=1 to n do
  if el[i].sim=sm then
   begin
    f:=1;
    writeln(el[i].naz,' ',el[i].sim,' ',el[i].mas,' ',el[i].zar,' ',el[i].svs);
   end;
  if f=0 then writeln('Такого элемента нет!');
  readln;
  end;
'2':begin
  mx:=0;
  imx:=1;
  for i:=1 to n do
  if el[i].mas>mx then
   begin
    mx:=el[i].mas;
    imx:=i;
   end;
  writeln('Элемент с самой большой массой атома ',el[imx].naz,' ',el[imx].mas);
  readln;
  end;
'3':begin
  mn:=250;
  imn:=1;
  for i:=1 to n do
  if el[i].zar<mn then
   begin
    mn:=el[i].zar;
    imn:=i;
   end;
  writeln('Элемент с самым маленьким зарядом ядра ',el[imn].naz,' ',el[imn].zar);
  readln;
  end;
else exit;
end;
until not (c in ['1'..'3']);
end.