комментарии

[zxzxz]

помогите пожалуйста комментарии к задачам около циклов и переменых написать

program ex;
uses crt;
const n = 5;
type mtr=array[1..n, 1..n] of real;
procedure matrix(var a:mtr);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:7:0);
   end;
  Writeln;
 end;
end;
procedure poisk(a:mtr);
var i,j:integer;
    isFound:boolean;
begin
isFound := false;
for i:=1 to n do
 begin
  for j:=1 to n do
  if  (A[i,j]>0) and (frac(A[i,j])=0) and (trunc(A[i,j]) mod 2 = 0) then
   begin
    WriteLn('В строке ',i,' есть положительный и чётный элемент!');
    isFound := true;
    break;
    Readln;
    if not isFound then WriteLn('Нет таких строчек!');
   end;
 end;
end;
var A : mtr;
begin
Randomize;
matrix(a);
poisk(a)
end.

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[20];
      ins: string[20];
      zan: string[10];
end;

procedure DoAll;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     gruppa,i:integer;
     n:char;
     day: string[20];
     s1:rasp;
begin
   clrscr;
   Writeln ('Задайте имя файла');
   Readln (name);
   Assign (f, name);
   Rewrite (f);
   Writeln ('Введите фамилию и инициалы преподавателя ');
   Readln (s1.fio);
   While s1.fio <> ' ' do
         Begin
              Writeln ('Введите номер группы ');
              Readln (s1.group);
              writeln ('Введите предмет ');
              readln (s1.conk);
              writeln ('Введите день недели ');
              readln (s1.ins);
              writeln ('Введите время занятия ');
              readln (s1.zan);
              writeln ('Введите аудиторию ');
              readln (s1.aud);
              write (f,s1);
              Writeln ('Введите фамилию и инициалы следующего преподавателя ');
              Readln (name);
              s1.fio:=name;
                End;
         Writeln ('Файл создан');
            Close(f);reset(f);
         writeln (' Pokazat spisok ');
          while not Eof(f) do
          begin
            read (f,s1);
            with s1 do begin
              WriteLn('ФИО: ',fio);
              WriteLn('Группа: ',group);
              WriteLn('Предмет: ',conk);
              WriteLn('День недели: ',ins);
              WriteLn('Время занятий: ',zan);
              WriteLn('Аудитория: ',aud);
              WriteLn('----------------');
            end;
          end;
   ReadLn(gruppa);
   While not Eof(F) do begin
     Read(f,s1);
     if s1.group=gruppa then begin
       readln (s1.zan);
       readln (s1.conk);
       readln (s1.aud);
       readln (s1.fio);
     end;
   end;
   Close(F);reset(f);
     ReadLn(day);
   While not Eof(F) do begin
     Read(f,s1);
     if s1.ins=day then begin
       readln (s1.zan);
       readln (s1.conk);
       readln (s1.aud);
       readln (s1.fio);
        end;
   end;
   Close(F);
end; {конец процедуры}

begin
  DoAll;
end.