Помогите пожалуйста с программой на Паскале!?( в н у т р и)

1. Программа почему-то записывает в файл вместо цифр какой-то бред.
2. Когда файл повторно открывается для чтения, то цикл While выполняется бесконечное кол-во раз.

Var f1: file of integer;
i,s: integer;
x,y:array [1..100] of integer;
Begin
randomize;
Assign(f1,'D:\Temp\file1.txt');
Rewrite(f1);
for i:=1 to 100 do
begin
x[i]:=random(100);
write(f1,x[i]);
write(x[i],' ');
end;
close(f1);

Reset(f1);
While not eof(f1) do begin
for i:=1 to 100 do begin
x[i]:=y[i];
end;end;
writeln();
for i:=1 to 100 do begin
writeln(y[i]);
end;



End.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.