Составьте таблицу под названием «Предметы», отражающие й
четвертные оценки по естественным и общественным дисциплинам. В отдельном столбце естествен-
по дисциплинам придайте свойство 1, а общественным —
- отсортируйте предметы по названиям. Из результирую-
ще таблицы сначала отберите естественные дисциплины,
а затем общественные

Type
    piece = record
        value: string[10];
        count := 1;
    end;

var
    pieces: array[1..200]of piece;
    i, j, n, pieces_n: integer;
    s, p: string;
    found: boolean;
    imax:=1;

begin
    read(s);
    read(n);
    for i := 1 to length(s) - n + 1 do
    begin
        p := Copy(s, i, n);
        found := false;
        for j := 1 to pieces_n do
            if pieces[j].value = p then begin
                pieces[j].count := pieces[j].count + 1;
                found := true;
                if pieces[imax].count < pieces[j].count then
                    imax := j;
                break;
            end;
        if not found then begin
            pieces_n := pieces_n + 1;
            pieces[pieces_n].value := p;
        end;
    end;
   
    writeln(pieces[imax].value);
end.

Var l:char;i,n,a,k,m,d,q:integer;s:string;
label z;
begin
randomize;
writeln ('Введите количество паролей');
writeln ('Из чего состоят пароли?');
z:writeln ('1 - буквы 2 - цифры 3 - и буквы и цифры');
readln (a);
if (a<>1)and (a<>2)and (a<>3)then
begin
writeln ('Неправильный ввод. Ввести заново (0 - да / 1 - нет)?');
read (q);
if q=0 then goto z else halt;
end else
begin
writeln ('Введите количество паролей: ');
readln (n);
writeln ('Введите длину пароля: ');
readln (k);
writeln ('Пароли:');
if a=1 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s:=s+chr(random(26)+97);
writeln(s);
s:='';
end;
end;
if a=2 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s := s + chr(random(10)+48);
writeln(s);
s:='';
end;
end;
if a=3 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s := s + chr(random(26)+97)+chr(random(10)+48);
delete(s,k,k);
writeln(s);
s:='';
end;
end;
end;
end.