скриншоты

[kinwood]

Кто может сделать скриншоты с паскаля.
программы как она работает плиз.

program obmen_kv;
uses crt;

const size =8 ;

type
    obmen = record
          komnat: integer;
          etag: integer;
          S: real;          {Обьевления переменых}
          pred: string;
          adres: string;
    end;

    arr_obmen = array [0..size - 1] of obmen;

var kvartira: arr_obmen;
    j,i: integer;
    lept: obmen;
    a: string;

procedure OutRec(m: obmen);
begin
     with m do
     begin
          writeln('Квартира №: ', i + 1);
          writeln('Адрес: ',adres);
          writeln('Площадь: ',S);
          writeln('Этаж: ',etag);
          writeln('Число комнат: ',komnat);
          writeln('Предпочтения: ',pred);
          writeln;
     end;
end;

procedure OutList(m: arr_obmen);
begin
     for i := 0 to size - 1 do OutRec(m[i]);
end;

procedure Select(adr: string[50]; m: arr_obmen);
begin
     for i := 0 to size - 1 do                      {процедура выведение адреса}
         if m[i].adres = adr then OutRec(m[i]);
end;

begin
  ClrScr;
  for j := 0 to size - 1 do
  begin
    writeln('введите сведения о ', j+1 , ' квартире.');
    write('введите Адрес: ');
    readln(kvartira[j].adres);
    write('введите площадь: ');
    readln(kvartira[j].S);
    write('введите Этаж: ');
    readln(kvartira[j].etag);
    write('введите число комнат: ');
    readln(kvartira[j].komnat);
    write('введите предпочтения: ');
    readln(kvartira[j].pred);
  end;
  Writeln('Базе данных в порядке возрастания количество комнат в квартирах!');

  for i := 1 to size - 1 do
   for j := size - 1 downto i do
    if kvartira[j - 1].komnat > kvartira[j].komnat then          {Сортировка}
    begin
         lept := kvartira[j - 1];
         kvartira[j - 1] := kvartira[j];
         kvartira[j] := lept;
    end;

  ClrScr;
  OutList(kvartira);
  Write('Введите адрес: ');
  readln(a);
  Select(a,kvartira);

end.