Объясните что означает термин полная информация
пример полной информации​

Const
  nm = 50;{ предельное число товаров }

var
  mn: array[1..nm] of string;
  mk, ms: array[1..nm] of real;
  i, k, n: integer;
  min: real;

begin
  Write('Введите число продуктов на складе (не более ', nm, '): ');
  Readln(n);
  min := 1e10;
  for i := 1 to n do
  begin
    Write('Наименование продукта ', i, ': '); Readln(mn[i]);
    Write('Количество и стоимость: '); Readln(mk[i], ms[i]);
    if min > mk[i] then begin min := mk[i]; k := i end
  end; 
  Writeln('На складе меньше всего продукта ', mn[k], ': ', mk[k],
    ' кг. стоимостью ', ms[k], ' руб. за 1 кг.')
end.

1 - в) caa
2 - в) в столбик
3 - в) char
4 - в) пояснительный текст не нужен
5 - в) символ заключается в апострофы

1)
Var s1: string;
i,a:integer;
Begin
Writeln ('введите текст');
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]='а')or(s1[i]='a') then a:=a+1;
writeln('количество букв а в тексте: ',a);
End.

2)
Var s1,s2: string;
Begin
Writeln ('введите первую строку');
Readln (s1);
Writeln ('введите вторую строку');
Readln (s2);
if length(s1)=length(s2) then writeln('длины строк совпадают')
else writeln('длины строк не совпадают')
End.