преобразование типа real к integer

[EvilArtorias]

процедура сравнения типизированного файла(имя:f1.dat) и целочисленного массива.структура файла:х-целое
у-вещественное.
сравнение осуществляется поэлементно(1-ый элемент массива сравнивается со значением х 1-ой записи файла,....)если все значения совпали,то процедура возвращает строку true иначе false.

const
h=5;
g=true;
type
T=record
x:integer;
y:real;
end;
procedure new_file(g:boolean);
var
n:integer;
mass:array[1..h] of real;
f:file of t;
i:integer;
a:integer;
b:real;
begin
readln(mass[i]);
assignfile(f,'f1.dat');
rewrite(f);
write ('Количество символов: ');
readln (n);
for i:=1 to n do
begin 
 write ('Введите символ: ');
        readln (b);
        write (f, b);
    end;
while not eof(f) do begin
read(f,a);
if a<>mass[i] then g:=false;
end;
end;
var g:boolean; 
begin
new_file(g);
end.

(ПАСКАЛЬ)
паскаль ругается на преобразование типа реал к T,хотя т у меня record,как исправить?

[Serge_Bliznykov]

это не код, это недоразумение сплошное.
mass[i] при не заданном i использовать просто бессмысленно.

но, формально, ответ на ваш вопрос:

var
  ....
  mass:array[1..h] of integer;
  f:file of t;
  one:t;
  b:real;
begin
....
g:=true;
i:=1;
while not eof(f) and g and (i<=h) do begin
   read(f,one);
  if one.x<>mass[i] then g:=false;
  inc(i); { нарастить  I)
end;

[EvilArtorias]

Сообщение от Serge_Bliznykov

..

а почему бессмысленно?а как же мне массив ввести если не так?

[min@y™]

Сообщение от EvilArtorias

а почему бессмысленно?а как же мне массив ввести если не так?

25.png

[EvilArtorias]

Сообщение от min@y™

Вложение 91644

тоесть в цикле это сделать?for i:=1 to n do
readln(mass[i]);

[Serge_Bliznykov]

Сообщение от EvilArtorias

...
b:real;
begin
readln(mass[i]);

что это? Чему в этой строчке равно i и сколько значений Вы вводите?

Сообщение от EvilArtorias

как же мне массив ввести если не так?

целочисленный массив можно ввести так:

...
begin
repeat
   write ('Введите количество чисел в целочисленном массиве (не более ',h,') N = ');
   readln (n);
until (n>=1) and (n<=h);
for i:=1 to n do
begin 
        write ('Введите ',i,'-е значение массива: ');
        readln (mass[i]);
end;
...

всё остальное, запись/чтение из файла, сравнение и прочее несущественное я убрал.

есть вопросы?

[min@y™]

Какой дебил там вас учит массивы не с нуля нумеровать?
Плюнь ему в морду, вредителю!
И не надо сравнивать нецелые числа на равно/не равно. Может быть потом мучительно больно.