Нужна помощь с задачей по программированию.Процедура сравнения последовательного файла (имя) и целочисленного массиваструктура файла: х-целое, у-вещественноесравнение осуществляется по-элементноесли все значения совпали, то процедура выводит true,иначе false.я написал часть и уже запутался...program failinif;const n=8;procedure sravnenie(c: integer);var mass : array[1..n] of real;f1:file of integer; i:integer;x:integer;y:real;beginassignFile(f1,'f1.dat');rewrite(f1);readln(x,y);write(f1,x,y);closeFile(f1);readln(mass[i]);for i:=1 to n-1 doif (mass[i]=x)and(mass[i+1]=y) then writeln('true')else writeln('false');end;var a:integer;beginsravnenie(a);end.(ПАСКАЛЬ)