"Ввести информацию о количестве продукции на складе в массив записей и вывести ее в виде таблицы."
Вот что у меня получилось:
Код
uses crt;
type
production = record
name: string;
kol: integer;
end;
var
a: array [1..50] of production;
i,n: integer;
begin
clrscr;
writeln('Введите количество продукции: ');
readln(n);
for i:=1 to n do
begin
write('Наименование: ');
readln(a[i].name);
write('Количество: ');
readln(a[i].kol);
end;
writeln;
writeln;
for i:=1 to n do
begin
writeln(' ',a[i].name:12,a[i].kol:8);
end;
readln;
end.
Подскажите где здесь недочёты. Как можно сделать красивее и т.д.
