Нельзя преобразовать тип real к integer - Pascal ABC (12520)

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
program l7;
var F1,F2:text;
    R,K:real;
    i:byte;
   
begin
assign(F1,'E:\file1.txt');
rewrite(F1);
assign(F2,'E:\file2.txt');
rewrite(F2);
for i:=1 to 50 do
begin
R:=random(50);
writeln(F1,R);
end;
begin
repeat
begin
readln(F1,R);
if R mod 2 = 1 then
K:=sqr(R);
writeln(F2,R);
end;
until K<50;
end;
close(F1);
close(F2);
end.

Решение задачи: «Нельзя преобразовать тип real к integer»

Листинг программы

program l7;
var F1,F2:text;
    R,K:integer;
    i:byte;
   
begin
assign(F1,'E:\file1.txt');
rewrite(F1);
assign(F2,'E:\file2.txt');
rewrite(F2);
for i:=1 to 50 do
begin
R:=random(50);
writeln(F1,R);
end;
begin
repeat
begin
readln(F1,R);
if R mod 2 = 1 then
K:=sqr(R);
writeln(F2,R);
end;
until K<50;
end;
close(F1);
close(F2);
end.

Объяснение кода листинга программы

В данном коде происходит чтение и запись файлов с использованием случайных чисел.

В первой строке кода задаются переменные F1 и F2 типа text, которые будут использоваться для работы с файлами.
Далее определяются переменные R и K типа integer, которые будут использоваться для генерации случайных чисел и вычисления квадратного корня.
Затем определяется переменная i типа byte, которая будет использоваться для контроля цикла.
В блоке for происходит цикл, в котором генерируется случайное число от 1 до 50 и записывается в файл F1.
После этого происходит блок repeat-until, в котором считывается число из файла F1, проверяется, является ли оно нечетным, и если да, то вычисляется квадратный корень числа и записывается в файл F2. Цикл продолжается до тех пор, пока значение переменной K не станет меньше 50.
В конце кода происходит закрытие файлов F1 и F2.