[Pascal] Файл

[Игopь]

Дан файл целых чисел, содержащий не менее четырех элементов. Вывести первый, второй, предпоследний и последний элементы данного файла.

PHP код:

program qwe;
var s:file of integer;q,w:integer; 
begin
assign(s,'qwe.txt');
reset(s);
q:=filesize(s);    //ошибка
read(s,w);
writeln(w);
read(s,w);
seek(s,q-2);
read(s,w);
writeln(w);
read(s,w);
writeln(w);
close(s);
end. 


не получается прочитать количество элементов, помогите пожалуйста

[Игopь]

исправил сам

PHP код:

program qwe;
var s:file of char;q:integer;w:char; 
begin
assign(s,'qwe.txt');
reset(s);
q:=filesize(s);
read(s,w);
writeln(w);
read(s,w);
writeln(w);
seek(s,q-2);
read(s,w);
writeln(w);
read(s,w);
writeln(w);
close(s);
end. 


[Serge_Bliznykov]

исправил сам

Вы будете смеятся, но Вы нормальный код (отвечающий условию задачи), исправили на неправильный

у Вас же в задании ясно и недвухсмысленно написано:

Дан файл целых чисел

Проблема в другом. Чтобы проверить рабоку программы, нужно было предварительно такой файл создать.
например, так:

program qwe; 
var s:file of integer; w, i, n :integer;  
   fName : string;
begin 
   WriteLn('Enter file name for create: ');
   Readln(fName);
   assign(s,fName); 
   Rewrite(f); {ВНИМАНИЕ! Если файл есть, то его содержимое будет уничтожено!} 
   WriteLn('Enter count of numbers in file:');
   Readln(n); 
   for i:=1 to n do begin
       Write('Enter ',i,' number: ');
       Readln(w);
       Write(s, w);
   end;
   Close(s);
   WriteLn(' The file ', fName, ' was created successfully.');
   Readln;
end.

[Perchik71]

Из его кода говориться о чтении, и тогда я понимаю почему.... целое занимает 4 байта.... а файл навверно писали ручками.