Hi,
here I type some lines of code.
They are not yet ready to be compiled.
But I'm sure you'll get it to work.
const
Grid = 'GRID';
var
s : String;
p : Integer;
r1, r2, r3 : extended;
readln(Textfile, s);
p := Pos(Grid, s);
if p > 0 then
begin
s := Copy(s, p + length(Grid), length(s));
val(s, r1, p);
if p > 0 then
begin
s := Copy(s, p, length(s));
val(s, r2, p);


|