Код
program MapEdit;
uses vesa256, vesatype, crt;
const
edit = 'map.txt';
var driver, mode, x, y, i,j,a : integer;
map: array [1..100,1..100] of char;
karta:text;
probel:string;
tekstura: char;
procedure readng(level: string);
var i, j, n, m : integer;
begin
assign(karta,level);
reset(karta);
For i:= 1 to 100 do for j:= 1 to 100 do begin
if (j = 1) and (i<>1) then begin
readln(karta,tekstura);
map[j,i]:=tekstura;
end
else
begin
read(karta, tekstura);
map[j,i]:=tekstura;
end;
end;
close(karta);
end;
begin
readng(edit);
for i:= 1 to 100 do for j:= 1 to 100 do if j=1 then begin writeln(map[j,i]); readln; end else
write(map[j,i]);
readln;
end.
uses vesa256, vesatype, crt;
const
edit = 'map.txt';
var driver, mode, x, y, i,j,a : integer;
map: array [1..100,1..100] of char;
karta:text;
probel:string;
tekstura: char;
procedure readng(level: string);
var i, j, n, m : integer;
begin
assign(karta,level);
reset(karta);
For i:= 1 to 100 do for j:= 1 to 100 do begin
if (j = 1) and (i<>1) then begin
readln(karta,tekstura);
map[j,i]:=tekstura;
end
else
begin
read(karta, tekstura);
map[j,i]:=tekstura;
end;
end;
close(karta);
end;
begin
readng(edit);
for i:= 1 to 100 do for j:= 1 to 100 do if j=1 then begin writeln(map[j,i]); readln; end else
write(map[j,i]);
readln;
end.